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1 

NASTRAN®  (NASA  STRUCTURAL  ANALYSIS)  is  a  large,  comprehensive, 
nonproprietary,  general  purpose  finite  element  computer  code  for  structural 
analysis  which  was  developed  under  NASA  sponsorship  and  became  available  to 
the  public  in  late  1970y  It  can  be  obtained  through  COSMIC®  (Computer 
Software  Management  and/Tnformation  Center),  Athens,  Georgia,  and  is  widely 
used  by  NASA,  other  government  agencies,  and  industry. 

NASA  current)^ jrovides  continuing  maintenance  of  NASTRAN  through  COSMIC. 
Because  of  the  Widespread  interest  in  NASTRAN,  and  finite  element  methods  in 
general,  the  Seventeenth  NASTRAN  Users'  Colloquium  was  organized  and  held  at 
The  Menger  Hotjel ,  San  Antonio,  Texas  on  April  24-28,  1989.  (Papers  from 
previous  colloquia  held  in  1971,  1972,  1973,  1975,  1976,  1977,  1978,  1979, 
1980,  1982,  1^83,  1984,  1985,  1986,  1987  and  1988  are  published  in  NASA 
Technical  Memorandums  X-2378,  X-2637,  X-2893,  X-3278,  X-3428,  and  NASA 
Conference  Publications  2018,  2062,  2131,  2151,  2249,  2284,  2328,  2373,  2419, 
2481  and  2505.)  AThe  Seventeenth  Colloquium  provides  some  comprehensive 
general  papers  on  the  application  of  finite  element  methods  in  engineering, 
comparisons  with  other  approaches,  unique  applications,  pre-  and 
post-processing  or  auxiliary  programs,  and  new  methods  of  analysis  with 
NASTRAN.  _ 


Individuals,  actively  engaged  in  the  use  of  finite  elements  or  NASTRAN 
were  invited  to  prepare  papers  for  presentation  at  the  Colloquium.  These 
papers  are  included  in  this  volume.  No  editorial  review  was  provided  by  NASA 
or  COSMIC;  however,  (detailed  instructions  were  provided  each  author  to  achieve 
reasonably  consistent  paper  format  and  content.  The  opinions  and  data 
presented  are  the  sole  responsibility  of  the  authors  and  their  respective 
organizations.  { 


NASTRAN®  and  COSMIC®  are  registered  trademarks  of  the  National  Aeronautics  and 
Space  Administration. 
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IMPROVED  PERFORMANCE  IN  NASTRAN® 


by 

Gordon  C.  Chan 
UNISYS  Corporation 
Huntsville,  Alabama 


SUMMARY 


PART  I,  SPEED  IMPROVEMENTS 

Three  areas  of  improvement  in  COSMIC/NASTRAN,  1989  release,  were 
incorporated  recently  that  make  the  analysis  program  run  faster  on  large 
problems,  particularly  on  the  VAX  computer. 

The  first  improvement  on  Bulk  Data  input  cards  was  presented  in  great 
detail  in  the  last  NASTRAN  Users'  Colloquium.  This  paper  completes  the 
previous  presentation  by  compiling  actual  log  files  and  actual  timings  on  a 
few  test  samples  that  were  run  on  IBM,  CDC,  VAX,  and  CRAY  computers.  The 
tabulated  result  shows  a  speed  improvement  in  COSMIC/NASTRAN  Link  1  from  3  to 
4  times  faster  on  the  CDC  computer  to  50  to  60  times  faster  on  the  VAX.  IBM 
and  CRAY  show  20  to  30  times  faster.  The  speed  improvement  is  proportional  to 
the  problem  size  and  number  of  continuation  cards. 

The  second  improvement  involves  vectorizing  certain  operations  in  BAND 
that  makes  BANDIT  run  twice  as  fast  in  some  large  problems  using  structural 
elements  with  many  node  points  (such  as  8-,  20-,  and  32-node  elements).  BANDIT 
is  a  built-in  NASTRAN  processor  that  optimizes  the  structural  matrix 
bandwidth. 

The  third  improvement  is  on  the  VAX  computer  only.  The  VAX  matrix  packing 
routine  BLDPK  was  modified  so  that  it  is  now  packing  a  column  of  a  matrix  3  to 
9  times  faster.  The  companion  unpack  routine  INTPK  is  also  running  3  to  9 
times  faster  than  before.  The  denser  and  bigger  the  matrix,  the  greater  is  the 
speed  improvement.  This  improvement  makes  a  host  of  routines  and  modules  that 
involve  matrix  operation,  such  as  MPYAD,  DECOMP/SDCOMP,  EMG,  REIG/CEIG, 
PARTN/MERGE,  ELIM,  SSG2B/C,  FACTOR,  TRNSP,  SDR2,  etc.,  run  significantly 
faster.  This  improvement  also  saves  disc  space  for  dense  matrices;  up  to  two- 
thirds  of  the  hardware  storage  space  could  be  saved. 


PART  II,  IMPROVEMENTS,  NEW  ENHANCEMENTS,  AND  NEW  VERSION 

1.  A  new  UNIX  version,  converted  from  1988  COSMIC  NASTRAN,  was  tested 
successfully  on  a  Silicon  Graphics  computer  using  the  UNIX  V  Operating  System, 
with  Berkeley  4.3  Extensions.  This  version  with  small  changes  was  also  known 
to  run  successfully  on  the  SUN  computer  and  Apollo  workstations. 

2.  The  Utility  Modules  INPUTT5  and  0UTPUT5,  developed  in  1988,  were 
expanded  to  handle  table  data,  as  well  as  matrices.  INPUTT5  and  OUTPUTS  are 
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general  input/output  modules  that  read  and  writ’  FORTRAN  files  with  or  without 
format . 

3.  More  user  informative  messages  are  echoed  from  PARAMR,  PARAMD,  and 
SCALAR  modules  to  ensure  proper  data  values  and  data  types  being  handled.  The 
ADD  module  was  expanded  to  handle  both  single  and  double  precision  scale 
factors. 


4.  Two  new  Utility  Modules,  GINOFILE  and  DATABASE,  were  written  for  the 
1989  release.  They  can  be  requested  via  DMAP  Alter. 

(a)  GINOFILE  captures  any  scratch  file  of  the  preceding  DMAP  module  and 
makes  it  a  legitimate  GINO  file. 

(b)  DATABASE  copies  (that  is  FORTRAN  written)  the  grid  point  data, 
element  connectivity  data,  displacement,  velocity,  and  acceleration  vectors, 
loads,  srid  point  forces,  eigenvectors,  element  stresses,  and  element  forces 
to  a  user  tape  (one  of  the  UT1,  UT2,  INPT,  INP1, . . . , INP9  tape),  formatted  or 
unformatted.  The  grid  point  data  is  in  system  basic  coordinates.  The 
displacement  vectors  can  be  in  system  basic  or  system  global  coordinates. 

5.  Seven  new  rigid  elements  are  added  to  COSMIC  NASTRAN.  They  are: 
CRROD,  CRBAR,  CRTRPLT,  CRBE1,  CRBE2,  CRBE3,  and  CRSPLINE. 


PART  I,  SPEED  IMPROVEMENTS,  1989  NASTRAN 


A.  Link  1  Improvement 

In  the  sixteenth  NASTRAN  Users'  Colloquium,  the  author  presented  a  paper 
entitled  "On  Bulk  Data  Cards  Processing",  in  which  a  new  method  of  processing 
the  NASTRAN  raw  input  data  was  discussed  in  great  detail.  The  only  thing  that 
was  missing  in  that  paper  was  some  actual  numbers  showing  the  timing 
improvement  of  the  1988  NASTRAN  version.  Since  then,  further  NASTRAN  software 
improvement,  not  directly  involving  the  bulk  data  cards  processing,  also  makes 
Link  1  run  faster.  Appendix  A  tabulates  a  series  of  test  runs  showing  the 
actual  timings  on  several  computers,  using  NASTRAN  87,  88,  and  88.5  (which  is 
now  89)  versions.  Appendix  A  begins  with  a  cantilever  model  used  throughout 
all  the  tests.  The  model  includes  10,000  grid  points  and  9999  QUAD2  elements, 
with  the  grid  points  and  elements  intentionally  not  in  sorted  order.  The 
actual  timings  of  the  XCSA,  IFP1,  XSORT,  and  IFP  modules  were  tabulated 
directly  from  the  NASTRAN  log  files  of  Vcrious  NASTRAN  versions  on  different 
computers,  the  NASTRAN  new  sorter,  XS0RT2,  and  the  old  sorter,  XSORT.  The 
conclusion  from  these  tests  indicates  generally  that  the  new  Link  1  is  20  to 
30  times  faster,  with  only  one  exception:  CDC  tests  showed  only  2  to  3  times 
faster.  This  CDC  slowness  is  explained  in  the  next  two  paragraphs.  The  Link  1 
improvement  on  the  VAX  computer  was  actually  more  impressive;  it  showed  30  to 
70  times  faster.  The  new  speed  improvement  of  Link  1,  however,  must  be 
discounted  somewhat  due  to  certain  source  code  standardization  implemented  in 
the  1987  NASTRAN  version.  The  1987  version  was  3  to  10  times  slower  then  the 
previous  versions. 
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The  CDC  computer  (a  non-virtual  memory  model)  is  intended  for  number 
crunching.  It  is,  however,  extremely  slow  in  handling  characters.  The  new 
XS0RT2  routine,  where  the  bulk  data  are  handled  and  sorted,  and  its  supporting 
subroutines  are  heavily  character  oriented  (that  makes  this  group  of  routines 
completely  machine  dependent).  In  the  88.5  version,  additional  modifications 
to  this  group  of  routines  were  made  to  avoid  CDC's  weakness.  The  actual  amount 
of  changes  was  not  too  extensive,  and  therefore  will  not  be  a  big  burden  to 
the  other  non-CDC  computers.  The  following  tests  illustrate  the  CDC 
deficiency. 

A  FORTRAN  (FTN5)  source  code  'A=B'  is  5  times  slower  if  A  and  B  are 
characters  than  if  A  and  B  are  integers.  Similarly,  'If  (A  .EQ.  B)  C=D'  is  15 
times  slower  if  A,  B,  C,  and  D  are  characters  than  if  they  are  integers.  These 
time-tests  were  made  on  the  Langley  Research  Center  Y  computer  (CDC  CYBER 
185). 


B.  Vectorizing  BANDIT  Operation 

The  grid  point  connectivity  increases  exponentially  when  elements  of  many 
node  points  (8-,  20-,  and  32-node  elements)  are  used  in  a  finite  element 
model.  Consequently,  BANDIT,  the  NASTRAN  built-in  bandwidth  processor,  would 
require  substantial  computer  CPU  time  for  optimizing  the  connectivity  of  the 
structural  model.  By  modifying  the  source  code  using  the  array  vectorizing 
concept,  the  BANDIT  timing  on  an  actual  huge  problem  was  reduced  by  half. 


C.  Pack  and  Unpack  on  the  VAX  Computer 

All  matrix  data  in  NASTRAN  are  packed;  that  is,  all  elements  of  zero 
values  are  squeezed  out,  when  the  matrix  data  are  written  out  to  a  storage 
disc.  Conversely,  the  matrix  is  unpacked  into  memory  space  when  it  is  brought 
back  from  the  disc;  that  is,  all  missing  zero  elements  are  put  back  into  their 
correct  positions  in  the  matrix.  For  efficiency,  the  packing  and  unpacking 
routines  in  NASTRAN  are  written  in  the  machine  dependent  assembly  languages 
for  IBM,  CDC,  and  UNIVAC  computers.  However,  FORTRAN  is  used  in  the  VAX.  The 
FORTRAN  source  code  of  the  VAX,  which  is  much  easier  to  understand,  has  been 
studied  thoroughly;  and  improvements  were  incorporated  in  key  areas.  The  final 
result  shows  great  improvement  in  speed  and  reduction  of  disc  space, 
particularly  in  large  and  dense  matrices.  These  improvements  in  matrix  packing 
and  unpacking  make  a  host  of  other  modules,  such  as  EMG,  MPYAD,  SDR2,  SMP1, 
PARTN/MERGE,  ELIM,  SSG2B/C,  FACTOR,  TRNSP,  SDR2,  DECOMP/SDCOMP,  EIGR/EIGC, 
etc.  run  significantly  faster.  As  indicated  by  the  test  runs  in  Appendix  A, 
all  VAX  runs  on  the  88.5  version  were  at  least  30  to  40  percent  faster  than 
the  corresponding  runs  on  the  88  version. 


PART  II,  IMPROVEMENTS,  NEW  ENHANCEMENTS,  AND  NEW  VERSION, 
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A.  UNIX  Version  of  COSMIC  NASTRAN 

The  present  trend  in  computer  applications  is  towards  the  UNIX  operating 


system.  The  1988  COSMIC  NASTRAN  has  been  converted  to  run  on  a  Silicon 
Graphics  computer  with  UNIX  V  OS,  Berkeley  4.3  Extensions.  All  the  machine 
independent  source  code  was  converted  without  any  major  problems.  (Only  the 
symbol  '4H/*( something) (something)'  needed  to  be  changed.)  The  VAX  machine 
dependent  source  code  (all  written  in  FORTRAN)  was  used  in  the  UNIX  version. 
Approximately  30  percent  of  this  group  of  routines  required  modification  and 
special  attention.  The  major  problem  encountered  here  was  the  usage  of  the 
open  core.  This  problem  appeared  to  be  very  much  machine  dependent  even  in  the 
supposedly  machine-independent  UNIX  operation  environment.  The  UNIX  versions 
were  also  tried  on  the  SUN  computer  and  Apollo  workstations  successfully. 


B.  INPUTT5  and  0UTPUT5  Improved  Capabilities 

Utility  modules  INPUTT5  and  0UTPUT5  were  incorporated  into  COSMIC  NASTRAN 
since  1987.  OUTPUTS  creates  user  written  FORTRAN  files,  formatted  or 
unformatted,  and  INPUTT5  reads  the  FORTRAN  files,  also  formatted  or 
unformatted.  The  1987  versions  of  INPUTT5  and  OUTPUTS  actually  handle  only 
GINO  (NASTRAN  General  Input/Output)  matrix  data  blocks.  Since  matrix  data  are 
either  real  or  complex,  in  single  or  double  precision  forms,  it  is  relatively 
easy  to  read  the  GINO  matrix  data  blocks  and  send  them  out  (OUTPUTS)  under 
FORTRAN  control,  formatted  or  unformatted.  Similarly,  it  is  quite  easy  to  read 
(INPUTT5)  from  a  FORTRAN  file,  formatted  or  unformatted,  and  re-create  the 
GINO  matrix  data  block.  The  1987  INPUTT5  and  0UTPUT5  modules  do  not  handle 
GINO  table  data  blocks,  because  a  table  array  normally  contains  mixed  types  of 
data,  integers,  reals,  and  BCD  data,  in  endless  combinations.  To  write  an 
array  of  mixed  type  data  formatted  is  not  an  easy  task. 

The  INPUTT5  and  0UTPUT5  modules  in  the  1989  release  are  expanded  to 
include  the  GINO  table  data  blocks,  as  well  as  the  matrix  data  blocks.  Again, 
the  data  transfer  between  the  GINO  file  and  FORTRAN  file  can  be  formatted  and 
unformatted.  The  formatted  file,  in  particular,  can  be  used  across  different 
computer  manufacturers'  processors.  Appendices  B  and  C  provide  detailed 
descriptions  of  the  INPUTT5  and  OUTPUTS  modules. 


C.  Improved  and  Expanded  Data  Handling  in  PARAMR,  PARAMD, 

PARAML,  SCALAR,  and  ADD  Modules 

The  original  PARAMR,  PARAMD,  and  SCALAR  modules  are  difficult  to  use.  In 
most  cases,  the  user  has  no  idea  whether  the  input  data  he  specified  is  used 
correctly,  and  the  output  from  these  modules  is  correctly  computed.  Unless 
these  modules  are  further  checked  by  PRTPARM,  the  user  is  completely  in  the 
dark.  Usually,  a  user  has  no  control  over  these  modules  even  when  errors  are 
found  in  the  input  or  output  parameters. 

The  PARAMR,  PARAMD,  and  SCALAR  modules  in  the  1989  version  provide  much 
more  user  information.  The  actual  input  and  output  parameters  are  echoed  out. 
For  example,  if  data  are  to  be  abstracted  from  matrix  data  blocks  by  PARAMR/D, 
the  precise  row  and  column  positions  of  the  data  element  are  printed,  and  the 
user  is  also  informed  that  the  matrix  type  is  real,  complex,  single  precision, 
or  double  precision.  Similar  useful  information  is  echoed  out  for  the  table 
data  blocks.  In  PARAMR  and  PARAMD,  the  user  is  also  given  the  ability  to  stop 
or  to  continue  a  NASTRAN  job  at  the  end  of  these  modules,  in  the  cases  of 
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error,  or  no  error  found.  Appendices  D  and  E  provide  detailed  descriptions  of 
the  PARAMD  and  SCALAR  functional  modules.  PARAML  was  expanded  in  the  1988 
version.  Its  manual  update  is  reprinted  in  Appendix  F. 

The  ADD  module,  which  adds  two  matrices,  [X]  =  a[A]  +  b[B],  has  been 
expanded.  The  scale  factors  a  and  b  can  now  be  in  single  precision  or  in 
double  precision.  The  manual  pages  for  ADD  are  updated  and  presented  in 
Appendix  G. 


D.  Two  New  Utility  Modules  -  GINOFILE  and  DATABASE 


D.l  GINOFILE  Module  -  to  Capture  A  Scratch  File  of  Preceding  DMAP  Module 

NASTRAN's  General  Input  and  Output  (GINO)  utility  processor  provides 
three  kinds  of  files  for  each  NASTRAN  DMAP  operation  -  input  files,  output 
files,  and  scratch  files.  Each  DMAP  module  specifies  its  input  files  and 
output  files  explicitly,  and  they  are  saved  in  the  GINO  system  until  an 
explicit  PURGE  command  is  given.  The  scratch  files,  however,  are  not  saved, 
and  are  left  in  the  computer  system  unprotected  at  the  end  of  a  DMAP  module 
operation.  At  this  point  they  are  ready  to  be  over-written  by  anything  in  the 
next  module.  There  would  be  a  tremendous  amount  of  work  in  DMAP  (or  Rigid 
Format)  programming,  and  FORTRAN  source  code  changes,  if  one  would  like  to 
save  one  or  more  of  these  scratch  files  by  the  regular  GINO  and  DMAP  rules. 
After  consulting  the  NASTRAN  Theoretical  manual  and  Programmer  manual,  and 
possibly  studying  the  NASTRAN  FORTRAN  source  code  carefully,  some  advanced 
NASTRAN  users  would  like  to  salvage  certain  scratch  file(s)  in  a  particular 
DMAP  module,  so  that  they  can  do  extraordinary  work  with  those  files  and  DMAP 
Alters.  A  new  DMAP  functional  module,  GINOFILE,  is  provided  in  the  1989 
version  to  capture  one  scratch  file  of  the  preceding  DMAP  module,  and  give  it 
a  legitimate  GINO  data  block  name,  and  proper  GINO  data  block  formation.  For 
example,  the  scratch  file  captured  may  not  have  a  header  record  and  GINO  name; 
the  new  output  file  from  GINOFILE  will  have  a  GINO  name  and  proper  header 
record.  This  new  GINOFILE  module  will  work  properly  if  and  only  if  the  scratch 
file  of  the  preceding  module  still  exists  in  the  computer  system,  and  only  the 
last  data  written  to  that  file  is  available  if  looping  is  involved.  Appendix  H 
describes  in  detail  the  usage  of  GINOFILE  module  and  its  limitations. 


D.2  DATABASE  Module  -  to  Copy  Grid  Point  Data,  Element  Connectivity  Data, 
and  Displacement  Vectors  (Velocities,  Accelerations,  Loads,  Grid  Point 
Forces,  Eigenvectors,  Element  Stresses,  or  Element  Forces)  to  a  User  Tape 

Many  users  have  expressed  the  need  to  transfer  NASTRAN  basic  data  (grids, 
elements,  and  displacements,  etc.)  to  an  external  FORTRAN  tape,  or  file,  so 
that  they  can  use  the  data  for  other  purposes.  Typically,  they  would  like  to 
link  up  the  NASTRAN  data  to  another  commercially  available  program  for 
plotting  interactively,  or  to  user  written  software  for  data  manipulation. 

Very  commonly,  the  users  would  like  the  grid  point  data  and  the  displacement 
data  in  the  basic  rectangular  coordinate  system,  and  all  the  grid  point  ID's 
in  their  external  numbers.  To  do  just  that,  the  users  must  copy  grid  point 
data  in  the  GE0M1  (Geometry  ij,  or  BGPDT  (Basic  Grid  Point  Definition  Table) 
file,  the  Coordinate  System  Transformation  Matrices  in  CSTM  file,  element  data 
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in  the  GE0M2  (Geometry  2),  or  EST  (Element  Summary  Table)  file,  element  type 
data  in  the  FORTRAN  source  code  GPTABD  BLOCK  DATA,  the  EQui valence  External 
grid  point  vs.  INternal  grid  point  number  tables  in  EQEXIN,  and  one  or  two 
displacement  OFP  files  (Output  File  Processor,  a  group  of  20  to  25  files). 
Since  all  the  NASTRAN  files  are  GINO  (NASTRAN  General  Input  and  Output  file 
processor)  written,  the  users  most  likely  would  use  the  0UTPUT2  module 
(0UTPUT5  is  now  available  in  88  and  89  releases)  for  the  data  transfer.  Only 
then,  the  users  would  have  enough  data  to  convert  the  grid  points  from  NASTRAN 
global  coordinates  to  the  basic  rectangular  coordinate  system,  and  from 
NASTRAN  internal  grid  point  numbering  system  to  the  external  numbers. 

Normally,  The  users  have  to  provide  the  conversion  program  either  from  a 
commercial  source  or  from  their  own  written  programs.  In  the  latter  case,  the 
users  must  be  familiar  with  0UTPUT2  operations,  and  the  contents  of  various 
files  and  their  exact  data  arrangements;  they  also  must  have  a  good  knowledge 
of  coordinate  transformation,  and  the  User's  and  the  Programmer's  Manuals.  A 
seemingly  easy  job  could  turn  out  to  be  a  mammoth  task.  It  is  to  this  end  that 
a  new  utility  module,  DATABASE,  was  written  for  the  1989  release. 

The  new  DATABASE  module  copies  the  grid  point  data,  the  element 
connectivity  data,  the  displacement  vectors,  and  other  data  out  to  a  user  tape 
(UT1  or  UT2  for  CDC  computer,  INPT,  INP1,  INP2,...  INP9  for  other  computers), 
formatted  or  unformatted.  All  grid  points  are  in  basic  rectangular 
coordinates,  and  the  displacement  vectors  (and  others)  are  in  basic 
rectangular  coordinates  or  NASTRAN  global  coordinates.  All  grid  point  ID's  are 
in  their  external  numbering  system.  The  displacement  vectors  (and  other  data) 
can  be  real  or  complex,  'S0RT1'  or  'S0RT2'  formats,  and  single  case  with  one 
output  record,  or  sub-cases  with  multiple  records.  The  unformatted  tape  from 
the  DATABASE  module  is  more  efficient.  The  formatted  tape  can  be  printed  out 
for  verification,  or  edited  by  the  system  editor.  The  formatted  tape  can  also 
be  generated  on  one  computer,  and  used  on  another  computer  of  a  different 
manufacturer.  Appendix  I,  the  user  manual  update  pages  for  the  DATABASE 
module,  shows  in  detail  the  records  being  generated  on  the  output  tape. 
Appendix  J  presents  a  NASTRAN  example  run  using  this  new  DATABASE  module.  The 
formatted  INP1  file  of  this  example  run  is  also  listed.  Appendix  J  also 
includes  a  FORTRAN  program  which  was  used  to  check  out  the  unformatted  tape 
during  the  development  stage.  This  FORTRAN  program  is  very  useful  as  a  guide 
to  read  a  typical  unformatted  FORTRAN  tape. 


E.  New  COSMIC  Rigid  Elements 


In  addition  to  the  four  rigid  elements,  CRIGD1,  CRIGD2,  CRIGD3,  and 
CRIGDR,  in  NASTRAN,  seven  new  rigid  elements  are  now  available  to  COSMIC 
NASTRAN  users. 


CRROD  - 
CRBAR  - 
CRTRPLT  - 

rnnri 

CRBE2  - 


CRBE3  - 


a  rigid  pin-ended  rod  element  (similar  to  CRIGDR) 
a  rigid  bar  element 
a  rigid  triangular  plate  element 

a  general  rigid  body  connected  to  an  arbitrary  number  of 
grid  points  (similar  to  CRIGD3) 

a  rigid  body  with  independent  d.o.f.  at  a  single  grid  point, 
and  with  dependent  d.o.f.  at  an  arbitrary  number  of  grid 
points  (similar  to  CRIGD2) 

a  rigid  body  that  defines  the  motion  at  "reference"  grid 
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points  as  the  weighted  average  of  the  motions  at  a  set  of 
other  grid  points 

CRSPLINE-  a  rigid  element  of  multi -point  constraints  for  interpolation 
of  displacements  at  specified  grid  points 

The  implementation  of  this  group  of  new  elements  is  as  follows. 

The  input  data  of  CRROD,  CR8E2,  and  CRBE1  are  mapped  into  CRI6DR,  CRIGU2, 
and  CRIGD3  data  formats  respectively,  and  thus  they  are  treated  as  a  CRIGDR,  a 
CRIGD2,  or  a  CRIGD3  element. 

The  input  data  of  CRBAR  and  CRTRPLT  are  mapped  into  the  rigid  general 
element  CRIGD3  data  fo; mat,  and  they  are  each  treated  as  a  CRIGD3  element. 

The  CRBE3  and  CRSPLINE  have  no  COSMIC  old  rigid  element  equivalence.  A 
special  subroutine  was  written  to  handle  these  two  elements. 

Appendix  K  provides  the  Users'  Manual  update  pages  for  this  new  group  of 
rigid  elements. 


F.  Other  Improvements 

Other  improvements  in  the  1989  release  include: 

(a)  A  new  'ECHO  =  NONO'  option  that  provides  absolutely  no  input  card 
(and  restart)  echo. 

(b)  DIAG  38  will  list  each  element  being  processed  by  the  EMG  module. 
Thus  it  may  pinpoint  which  element  that  might  have  an  input  error. 

(c)  Complex  stresses  and  forces  for  QUAD4  elements. 

(d)  Inclusion  of  QUAD4  in  random  analysis. 
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APPENDIX  A 

NASTRAN  LINK1  TIME  TESTS 
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(A)  NASTRAN  TIMING  TEST  INPUT  DECK 


NASTRAN  BULKDATA=-1,  TITLE0PT=-1 

tr.  TEN  THOUSAND  GRID  POINTS  TEST  PROBLEM,  CM=250,000  (CDC) 

$  50K  WORDS  (VAX) 

*  7.5M  BYTES  (IBM) 

$  100K  WORDS  (UNIVAC) 

S  OPEN  CORE?  (CRAY) 


$  TO  USE  OLD  XSORT  MODULE 


TITLE  =  DATA  INTENTIONALLY  GENERATED  NOT  IN  SORTED  ORDER 
SUBTITLE  =  NO  CONTINUATION  CARDS  IN  DECK 


DISP  =  ALL 
ECHO  =  NONE 
SPC  =  135 
LOAD  =  246 
BEGIN  BULK 


%  OR  ECHO  =  SORT 


TEST  MOOEL  -  A  LONG  CANTILEVER  BEAM 


5001  5002  5003  5004  5005  5006  5007  ..  9998  9999  10000  =  GRID  PTS 


I  I  I  I  I  I  I 

|  (1)  |  (2)  |  (3)  |  (4)  |  (5)  |  (6)  | 


|  (49  |  (49  |  (OUAD2  ELEM.ID 
.  j  98)  |  99)  |  IN  BRACKETS) 

--+ . + . + . X 

4998  4999  5000 


GRID,  1,,  0.0,  0.0,  0.0 

=(2499),  *(2),,  *(2.),== 

GRID,  5000,,  4999.0,  0.0,  0.0 

=,*(-2), ,*(-2.),== 

=(2498) 

CQUAD2,  1,  10,  1,  2,  5002,  5001 

=(2498),*(2),=,*{2),/// 

GRID,  5001,,  0.0,  1.0,  0.0 

=,*(2), ,*(2.),== 

=(2499) 

GRID,  10000,,  4999.0  1.0  0.0 

=,*(-2), ,*(-2.),== 

=(2498) 

PQUAD2,  10  20  0.02 

MAT1-,  20  30. +6, ,  0.33 

CQUAD2,  4998  10  4999  5000  10000  '  9999 

=,*(-2),=,  *(-2),*(-2),*(-2),*(-2) 

=(2497) 

SPC1,  135  123456  1  5001 
FORCE, 246,  5000,,  200.,  0.  0.  -1. 

=,=,  10000,== 

ENDDATA 


9 


(B)  TO  GENERATE  A  FIXED-FIELD  INPUT  DECK  FOR  THE  MODEL  IN  (A) 
(NOT  AVAILABLE  ON  IBM  MACHINE) 


Assume  file  ABC. DAT  contains  the  above  model. 

Run  LINKFF  (an  independent  link  included  in  NASTRAN  delivery  tape,  NASTOl). 
Answer  a  new  file  name  when  asked,  such  as  DEF.DAT. 

Enter  'READFILE  ABC. DAT'. 

A  fixed-field  deck  will  be  generated  and  saved  in  DEF.DAT  (approx.  15020 
cards) . 


(C)  SUMMARY  OF  NASTRAN  TIMINGS  USING  ABOVE  CANTILEVER  MODEL  IN  (A) 


VAX  TIMING 

,  COSMIC  VAX/780  VMS  4 

.7  - 

(Runs  were  made  before  November 

1988) 

VAX  NASTRAN  87  RELEASE  TIMING: 

17:21:49 

3.0  ELAPSED  SEC 

1.0  CPU  SEC 

TTIO 

1 

TIMING  COMPUTATION 

17:22:32 

46.0  ELAPSED  SEC 

26.0  CPU  SEC 

TTLP 

1 

17:22:32 

46.0  ELAPSED  SEC 

26.0  CPU  SEC 

XCSA 

1 

32.0-  26.=  6.0 

SEC 

17:22:42 

56.0  ELAPSED  SEC 

32.0  CPU  SEC 

IFP1 

1 

34.0-  32.=  2.0 

SEC 

17:22:46 

60.0  ELAPSED  SEC 

34.0  CPU  SEC 

XSOR 

1 

7495.-  34. =7461 

SEC 

19:36:17 

8071.0  ELAPSED  SEC 

7495.0  CPU  SEC 

IFP 

BEGN 

20:04:48 

9782.0  ELAPSED  SEC 

9190.0  CPU  SEC 

IFP 

END  | 

9190.-7495. =1695 

SEC 

20:04:48 

9782.0  ELAPSED  SEC 

9190.0  CPU  SEC 

XGP1 

! 

VAX  NASTRAN  88  RELEASE  (WITH  DIAG  42  ON,  USING  OLD  XSORT)  TIMING: 

14:28:00 

2.0  ELAPSED  SEC 

1.0  CPU  SEC 

TTIO 

1 

14:28:00 

2.0  ELAPSED  SEC 

1.0  CPU  SEC 

XCSA 

1 

7.0-  1.0=  6.0 

SEC 

14:28:10 

12.0  ELAPSED  SEC 

7.0  CPU  SEC 

IFP1 

1 

9.0-  7.0=  2.0 

SEC 

14:28:14 

16.0  ELAPSED  SEC 

9.0  CPU  SEC 

XSOR 

1 

8334.-  9.0=8325 

SEC 

17:00:16 

9138.0  ELAPSED  SEC 

8334.0  CPU  SEC 

IFP 

BEGN 

17:32:40 

11082.0  ELAPSED  SEC 

9893.0  CPU  SEC 

IFP 

END  | 

9893. -8334. =1559 

SEC 

17:32:40 

11082.0  ELAPSED  SEC 

9893.0  CPU  SEC 

XGP 

1 

VAX  NASTRAN  88  RELEASE  TIMING: 

14:13:05 

2.0  ELAPSED  SEC 

0.0  CPU  SEC 

TTIO 

1 

14:13:05 

2.0  ELAPSED  SEC 

0.0  CPU  SEC 

XCSA 

1 

6.0-  0.0=  6.0 

SEC 

14:13:14 

11.0  ELAPSED  SEC 

6.0  CPU  SEC 

IFP1 

1 

8.0-  6.0=  2.0 

SEC 

14:13:18 

15.0  ELAPSED  SEC 

8.0  CPU  SEC 

XSOR 

1 

160.0-  8.0=154.0 

SEC 

14:16:50 

227.0  ELAPSED  SEC 

160.0  CPU  SEC 

IFP 

BEGN 

14:20:09 

426.0  ELAPSED  SEC 

337.0  CPU  SEC 

IFP 

END  | 

337.0- 160. =177.0 

SEC 

14:20:09 

426.0  ELAPSED  SEC 

337.0  CPU  SEC 

XGP  I 

1 

VAX  NASTRAN  88.5  NEW  VERSION  TIMING: 

13:43:36 

40.0  ELAPSED  SEC 

26.0  CPU  SEC 

TTLP 

1 

13:43*37 

41,0  ELAPSED  SEC 

26.0  CPU  SEC 

XCSA 

1 

1 

32,0-26.0=  4.0 

SEC 

13:43:46 

50.0  ELAPSED  SEC 

32.0  CPU  SEC 

IFP1 

1 

33.0-32.0=  1.0 

SEC 

13:43:49 

53.0  ELAPSED  SEC 

33.0  CPU  SEC 

XSOR 

1 

149.0-33.0=116.0 

SEC 

13:46:52 

236.0  ELAPSED  SEC 

149.0  CPU  SEC 

IFP 

BEGN 

13:48:42 

346.0  ELAPSED  SEC 

237.0  CPU  SEC 

IFP 

EHD| 

237.0-149.=  88.0 

SEC 

13:48:42 

346.0  ELAPSED  SEC 

237.0  CPU  SEC 

XGP  I 

1 
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VAX/780  TIMING  SUMMARY  TABLE: 


VERSION  | 

COSMIC  87 

|  COSMIC  88 

1 

COSMIC  88 

|  COSMIC  88.5 

j  OLD  XSORT 

1 

NEU  XSORT2 

j  AVAILABLE  IN  89 

MOOULE  j 

CPU 

|  CPU 

I _ 

1 

1 

.  i  . 

CPU 

|  CPU 

1  ■ 

H 

6.0 

j  4.0 

n 

2.0 

|  1.0 

154.0 

j  116.0 

Hi 

u 

177.0 

j  88.0 

VAX  TIMING,  COSMIC  MICRO-VAX  3600  VMS  5.0-2  - 
(Runs  were  made  after  December  1988,  100K  HI  CORE) 


VAX  NASTRAN  88.5  RELEASE  (UITH  DIAG  42  ON,  USING  OLD  XSORT)  TIMING: 


14:13:42 

1.0  ELAPSED  SEC 

0.0  CPU  SEC 

TTIO 

1 

TIMING  COMPUTATION 

14:13:42 

1.0  ELAPSED  SEC 

0.0  CPU  SEC 

XCSA 

1 

2.0-  0.0=  2.0 

SEC 

14:13:46 

5.0  ELAPSED  SEC 

2.0  CPU  SEC 

IFPl 

1 

2.0-  2.0=  0.0 

SEC 

14:13:48 

7.0  ELAPSED  SEC 

2.0  CPU  SEC 

XSOR 

1 

1273.-  2.0=1271. 

SEC 

14:41:49 

1688.0  ELAPSED  SEC 

1273.0  CPU  SEC 

IFP 

BEGN 

14:43:14 

1773.0  ELAPSED  SEC 

1321.0  CPU  SEC 

IFP 

END  | 

1321. -1273. =48.0 

SEC 

14:43:14 

1773.0  ELAPSED  SEC 

1321.0  CPU  SEC 

XGPI 

1 

VAX  NASTRAN  88  RELEASE  TIMING: 


09:30:48 

1.0  ELAPSED  SEC 

1.0  CPU 

SEC 

TTIO 

1 

09:30:48 

1.0  ELAPSED  SEC 

1.0  CPU 

SEC 

XCSA 

1 

3.0-  1.0= 

2.0 

SEC 

09:30:52 

5.0  ELAPSED  SEC 

3.0  CPU 

SEC 

IFPl 

1 

4.0-  3.0= 

1.0 

SEC 

09:30:54 

7.0  ELAPSED  SEC 

4.0  CPU 

SEC 

XSOR 

1 

62.0-  4.0= 

58.0 

SEC 

09:32:48 

121.0  ELAPSED  SEC 

62.0  CPU 

SEC 

IFP 

BEGN 

09:34:11 

204.0  ELAPSED  SEC 

129.0  CPU 

SEC 

IFP 

END  | 

129.0-62.0= 

67.0 

SEC 

09:34:11 

204.0  ELAPSED  SEC 

129.0  CPU 

SEC 

XGPI 

1 

VAX  NASTRAN  88.5  NEU  VERSION  TIMING: 


09:37:22 

1.0  ELAPSED 

SEC 

1.0  CPU  SEC 

TTIO 

1 

09:37:22 

1.0  ELAPSED 

SEC 

1.0  CPU  SEC 

XCSA 

1 

3.0-  1.0=  2.0  SEC 

09:37:26 

5.0  ELAPSED 

SEC 

3.0  CPU  SEC 

IFPl 

1 

I 

3.0-  3.0=  0.0  SEC 

09:37:28 

7.0  ELAPSED 

SEC 

3.0  CPU  SEC 

XSOR 

1 

48.0-  3.0=  45.0  SEC 

09:39:06 

105.0  ELAPSED 

SEC 

48.0  CPU  SEC 

IFP 

BEGN 

09:39:53 

152.0  ELAPSED 

SEC 

79.0  CPU  SEC 

IFP 

END  | 

79.0-48.0=  31.0  SEC 

09:39:53 

152.0  ELAPSED 

SEC 

79.0  CPU  SEC 

XGPI 

1 
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MICRO-VAX  3600  TIMING  SUMMARY  TABLE 


VERSION 

1 

:OSMIC  88 

1 

COSMIC  89 

1 

COSMIC  88 

|  COSMIC  88.5 

1 

OLD  XOSRT 

1 

OLD  XSORT 

1 

NEU  XSORT2 

|  AVAILABLE  IN  89 

MODULE 

1 

CPU 

1 

CPU 

1 

CPU 

|  CPU 

- 1  _  _  _ 

XCSA 

1 

1 

2.0 

H 

mam 

H 

IFP1 

1 

N/A 

1 

0.0 

n 

wEm 

|  0.0 

XSORT 

1 

1 

1271.0 

H 

1 Hgl 

IFP 

1 

1 

48.0 

H 

■mBm 

■a 

IBM  TIMINGS,  MSFC  IBM  3084  - 


IBM  NASTRAN  87  RELEASE  TIMING: 


* 

0.3  ELAPSED 

0.088  CPU 

TTIO 

|  TIMING  COMPUTATION 

★ 

0.4  ELAPSED 

0.088  CPU 

XCSA 

|  0.241-0.088=  0.153 

SEC 

★ 

1.4  ELAPSED 

0.241  CPU 

IFP1 

|  0.330-0.241=  0.092 

SEC 

* 

2.4  ELAPSED 

0.330  CPU 

XSOR 

|  222.975-0.330=222.645 

SEC 

* 

274.1  ELAPSED 

222.975  CPU 

IFP 

BEGH 

1 

* 

407.4  ELAPSED 

319.521  CPU 

IFP 

END 

|  319.521-222.975=  96.546 

SEC 

* 

407.4  ELAPSED 

319.522  CPU 

XGP 

1 

IBM  NASTRAN  88  RELEASE  TIMING  (UITH  DIAG 

42  ON, 

USxNG  OLD  XSORT): 

* 

0.9  ELAPSED 

0.093  CPU 

TTIO 

1 

* 

0.9  ELAPSED 

0.094  CPU 

XCCA 

|  0.227-0.094=  0.133 

SEC 

★ 

2.2  ELAPSED 

0.227  CPU 

IFP1 

|  0.306-0.227=  0.079 

SEC 

* 

3.2  ELAPSEO 

0.306  CPU 

XSOR 

|  222.801-0.306=222.495 

SEC 

★ 

252.6  ELAPSED 

222.801  CPU 

IFP 

BEGN 

1 

* 

339.5  ELAPSED 

297.420  CPU 

IFP 

END 

|  297.420-222.801=  74.619 

SEC 

* 

339.5  ELAPSED 

297.421  CPU 

XGP 

1 

IBM  NASTRAN  88  RELEASE  TIMING  (FIRST  RUN) 

* 

• 

★ 

0.5  ELAPSED 

0.097  CPU 

TTIO 

1 

* 

0.5  ELAPSED 

0.097  CPU 

XCSA 

|  0.215-0.097=  0.118 

SEC 

* 

2.0  ELAPSED 

0.215  CPU 

IFP1 

j  0.274-0.215=  0.059 

SEC 

* 

3.6  ELAPSED 

0.274  CPU 

XSOR 

j  8.766-0.274=  8.492 

SEC 

* 

36.9  ELAPSED 

8.766  CPU 

IFP 

BEGN 

1 

* 

58.6  ELAPSED 

16.813  CPU 

IFP 

END 

|  16.813-8.766=  8.047 

SEC 

* 

58.6  ELAPSED 

16.813  CPU 

XGP 

1 

IBM  NASTRAN  88  RELEASE  TIMING  (SECOND  RUN): 


* 

0.9  ELAPSED 

0.100  CPU 

TTIO 

1 

★ 

0.9  ELAPSED 

0.100  CPU 

XCSA 

1 

0.221-0.100= 

0.121  SEC 

* 

2.3  ELAPSED 

0.221  CPU 

IFP1 

1 

0.282-0.221= 

0.061  SEC 

* 

3.3  ELAPSED 

0.282  CPU 

XSOR 

1 

8.819-0.282= 

8.537  SEC 

* 

31.9  ELAPSED 

8.819  CPU 

IFP 

BEGN  | 

* 

51.9  ELAPSED 

16.984  CPU 

IFP 

END  | 

16.984-8.819= 

8.165  SEC 

51.9  ELAPSED 

16.984  CPU 

XGP  I 

I 

IBM  NASTRAN  88.5  RELEASE  TIMING: 

* 

1.4  ELAPSED 

0.118  CPU 

TTIO 

1 

* 

10.2  ELAPSED 

0.540  CPU 

TTLP 

1 
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* 

10.2  ELAPSED 

0.580 

CPU 

XCSA 

1 

0.703-0.580=  0.123  SEC 

* 

12.9  ELAPSED 

0.703 

CPU 

IFP1 

1 

0.742-0.703=  0.039  SEC 

* 

14.4  ELAPSED 

0.742 

CPU 

XSOR 

1 

8.135-0.742=  7.393  SEC 

* 

75.0  ELAPSED 

8.135 

CPU 

IFP 

BEGN  | 

* 

139.0  ELAPSED 

14.040 

CPU 

IFP 

END  j 

14.040-8.135=  5.905  SEC 

* 

139.0  ELAPSED 

14.040 

CPU 

XGPI 

1 

I BM  TIMING  SUMMARY  TABLE: 

+ - - - . - . + 


VERSION  | 

COSMIC  87 

|  COSMIC  88 
j  OLD  XSORT 

1 . 

|  COSMIC  88 
|  NEU  XSORT2 

1 . 

COSMIC  88.5 

AVAILABLE  IN  89 

MODULE  | 

CPU 

1 

1  CPU 

I 

1  CPU* 

1 _ _ 

CPU 

XCSA  j 

0.153 

1 . 

1  0.133 

0.123 

IFP1  j 

0.092 

j  0.079 

0.039 

XSORT  j 

222.645 

j  222.495 

7.393 

IFP  j 

96.546 

j  74.619 

5.905 

*  AVERAGE  OF  TUO  RUNS. 

UNIVAC  TIMING  TEST  NOT  AVAILABLE 


CRAY  TIMINGS,  MOOEI.  X-MP  (COS),  COURTESY  OF  RPK  CORPORATION  - 
(Log  files  slightly  edited) 

CRAY  NASTRAN  88  RELEASE  TIMING  (WITH  DIAG  42  ON,  USING  OLD  XSORT): 


WALL  CLOCK 

TOTAL 

INCREMENTAL 

MOOULE 

TIME 

CPU  SECONDS 

CPU  SECONDS 

&  STATUS 

10:17:29 

0.018 

0.000 

TTIO  | 

TIMING 

COMPUTATION 

10:17:31 

0.349 

0.331 

TTLP  j 

10:17:31 

0.439 

0.090 

XCSA  j 

0.618- 

0.439=  0.179 

ID  TEN 

THOUSAND  GRID  POINTS  TEST  PROBLEM, 

,  OPEN  CORE? 

(CRAY) 

10:17:34 

0.618 

0.179 

IFP1  | 

0.644- 

0.618=  0.026 

TITLE  =  DATA  INTENTIONALLY 

GENERATED  NOT  IN 

SORTED  ORDER 

10:17:34 

0.644 

0.027 

XSOR  | 

108.788- 

0.644=108.144 

10:22:24 

108.788 

108.144 

IFP  BEGN 

10:23:43 

141.799 

33.010 

IFP  END  1 

141.799-108.788=  33.011 

10:23:43 

141.799 

0.000 

XGPI  | 

CRAY  NASTRAN  88  RELEASE  TIMING: 

WALL  CLOCK 

TOTAL 

INCREMENTAL 

MODULE 

TIME 

CPU  SECONDS 

CPU  SECONDS 

&  STATUS 

TTIO  | 
TTLP 


10:05:16 

10:05:19 


0.018 

0.346 


0.000 

0.328 


13 


XCSA 


10:05:19  0.435  0.090  XCSA  |  0.609-0.435=0.174  SEC 

ID  TEN  THOUSAND  GRID  POINTS  TEST  PROBLEM,  OPEN  CORE?  (CRAY) 

10:05:23  0.609  0.174  IFP1  |  0.626-0.609=0.017  SEC 

TITLE  =  DATA  INTENTIONALLY  GENERATED  NOT  IN  SORTED  ORDER 

10:05:23  0.626  0.017  XSOR  |  5.539-0.626=4.913  SEC 

10:05:41  5.539  4.913  IFP  BEGN 

10:05:57  10.575  5.035  IFP  END  |  10.575-5.539=5.036  SEC 

10:05:57  10.575  0.000  XGPI  | 


CRAY  TIMING  SUMMARY  TABLE: 


+ - - - - - - — + 


VERSION 

COSMIC  87 

1 

COSMIC  88 

1 

COSMIC  88 

|  COSMIC  88.5 

1 

OLD  XSORT 

1 

NEW  XSORT2 

|  AVAILABLE  IN  89 

MODULE 

CPU 

CPU 

1 

CPU 

j  CPU 

XCSA 

1 

0.179 

1 

0.174 

1 

IFP1 

N/A 

1 

0.026 

1 

0.017 

|  N/A 

XSORT 

1 

108.144 

1 

4.913 

1 

IFP 

1 

33.011 

1 

5.036 

1 

+ . + 


CDC  TIMINGS,  CYBER  855  AT  LRC,  COURTESY  OF  JOE  WALZ  - 
CDC  NASTRAN  88  RELEASE  TIMING  WITH  DIAG  42  ON  (OLD  XSORT): 


WALL 

ELAPSED 

CPU 

CLOCK 

SECONDS 

SECONDS 

MODULE 

18.50.41. 

3.0 

1.245 

TTIO 

1 

TIMING  COMPUTATION 

18.50.57. 

19.0 

5.698 

TTLP 

1 

18.50.58. 

20.0 

6.289 

XCSA 

1 

10.532-  6.289=  4.243  SCC 

18.51.05. 

27.0 

10.532 

IFP1 

1 

11.876-  10.532=  1.344  SEC 

18.51.07. 

29.0 

11.876 

XSOR 

1 

650.388-  11.876=  638.512  SEC 

19.16.03. 

1525.0 

650.388 

IFP 

BEG  | 

20.27.41. 

5823.0 

3083.137 

IFP 

END  | 

3083.137-650.388=2432.749  SEC 

20.27.41. 

5823.0 

3083.141 

XPGI 

1 

CDC  NASTRAN  88  RELEASE  TIMING 

(NEW 

XSORT2) 

; 

08.26.25. 

3.0 

1.278 

TTIO 

1 

08.26.40. 

18.0 

5.895 

TTLP 

1 

08.26.41. 

19.0 

6.501 

XCSA 

1 

9.730-  6.501=  3.229  SEC 

08.26.45. 

23.0 

9.730 

IFP1 

i 

10.422-  9.730=  0.692  SEC 

08.26.47. 

25.0 

10.422 

XSOR 

1 

695.797-  10.422=  685.375  SEC 

08.45.31. 

1149.0 

695.797 

IFP 

BEGN  | 

09.01.24. 

2102.0 

1335.940 

IFP 

END  | 

1335.940-695.797=  640.143  SEC 

09.01,24. 

2102.0 

1335.94/. 

VftDI 

1 

t 

CDC  NASTRAN  88.5  RELEASE  TIMING  (TEST  RUN 

BY  G.CHAN): 

03.10.50. 

1.0 

.184 

TTIO 

1 

03.10.55. 

6.0 

4.541 

TTLP 

1 

03.10.56. 

7.0 

5.127 

XCSA 

1 

8.341-  6.501=  1.840  SEC 

14 


03 

CO 

in 

o 

9.0 

8.341 

IFP1 

1 

8.615- 

8.341= 

0.274 

SEC 

03 

10.59. 

10.0 

8.615 

XSOR 

I 

408.704- 

8.615= 

400.029 

SEC 

03 

15.55. 

306.0 

408.704 

IFP 

BEGN  | 

03 

19.24. 

515.0 

708.021 

IFP 

END  j 

708.021- 

408.704= 

299.317 

SEC 

03 

19.24. 

515.0 

708.025 

XGPI 

1 

CDC 

TIMING  SUMMARY  TABLE: 

1 

VERSION 

COSMIC  88 

1 

COSMIC  88 

1 

COSMIC  88.5 

1 

1 

OLD  XSORT 

1 

NEW  XSORT2 

1 

NEW  XSORT2 

1 

1 

MODULE 

ELAPS  CPU 

1 

ELAPS  CPU 

1 

ELAPS  CPU 

1 

1 

XCSA 

7  4.2 

1 

4  3.2 

1 

1  1.84 

1 

1 

FP1 

2  1.3 

1 

2  0.7 

1 

2  0.27 

1 

1 

XSORT 

1493  638.5 

1 

1124  685.4 

1 

296  400.03 

1 

1 

IFP 

4298  2432.7 

1 

.  1 

953  640.1 

1 

209  299.32 

1 

1 

TOT. CPU 

H 

1337.8 

1 

713.9 

1 

1 

•SRU's 

H 

1839 

1 

976 

1 

-  + 

*  CDC  COMPUTER  CHARGE  IS  BASED  ON  SRU  UNITS. 
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APPENDIX  B 

USERS'  MANUAL  UPDATE  PAGES  FOR  INPUTT5  MODULE 
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DMAP  MODULE  DESCRIPTIONS 


VI.  PARAMETERS: 


1.  The  meanings  of  the  first  three  parameter  values  (PI,  P2,  P3)  are  the  same  as  those 
described  for  INPUTT2  Module,  except  (1)  values  -5  through  -8  for  PI  are  not 
available,  and  a  new  Pl«-9  to  rewind  input  tape;  and  (2)  the  user  file  code  and  the 
FORTRAN  file  name  are  given  below.  (The  default  value  for  P2  is  16,  or  12  for  a  CDC 
computer.) 

FORTRAN  LOGICAL 

UNIT,  P2  USER  FILE  CODE 


11 

UT1  (CDC  only) 

12 

UT2  (CDC  only) 

14 

INPT  (UNI VAC . VAX) 

15 

INP1  (All 

16 

INP2  machines 

* 

:  except 

23 

INP9  CDC) 

24 

INPT  (IBM  only) 

2.  The  fourth  parameter  (P4)  for  this  module  is  used  to  specify  whether  the  user  tape 
was  written  with  formats  (P4»l),  or  binary  tape  (P4=0) .  Default  is  P4»0. 


VII.  METHODS: 

Since  INPUTT5  is  intended  to  be  a  companion  module  to  OUTPUT5,  it  is  therefore  suggested 
that  the  user  should  refer  to  the  Methods  and  Remarks  sections  of  the  0UTPUT5  module  for 
input  tape  structure. 

Subroutine  INPTT5  is  the  main  driver  for  the  INPUTT5  module.  Its  primary  function  is  to 
read  matrix  data  blocks  from  the  user  input  tape.  When  a  table  data  block  is  encountered, 
INPTT5  calls  subroutine  TABLEV  to  process  the  data.  The  user  input  tape  always  begins 
with  a  tape  ID  record  which  tells  when  the  tape  was  generated,  on  what  machine,  tape 
identification,  formatted  or  unformatted  tape,  and  NASTRAN  system  buffer  size.  This  tape 
ID  record  can  be  skipped,  or  read  by  the  following  FORTRAN  code: 

INTEGER  TAPEID(2) ,MACHIN(2) , DATE(3) , BUFSIZ, P4X 
READ  (TAPE  )  TAPEID,MACIIIN, DATE, BUFSIZ, P4X  or 
READ  (TAPE, 10)  TAPEID,MACHIN, DATE, BUFSIZ, P4X 
10  FORMAT  (2A4,2A4,3I8, 18, 18) 


17 


DIRECT  MATRIX  ABSTRACTION 


NAM£:  INPUTT5  (Reads  A  User-Written  FORTRAN  File,  Formatted  or  Unformatted) 

(The  companion  module  is  0UTPUT5) 


PURPOSE:  Recovers  up  to  five  data  blocks  from  a  FORTRAN-written  user  file,  formatted  or 
unformatted.  (The  FORTRAN  file  may  reside  either  on  physical  tape  or  on  a  mass  storage 
device.)  This  file  may  be  written  either  by  a  user-written  FORTRAN  program  or  by  the 
companion  module  0UTPUT5.  The  Programmers'  Manual  describes  the  format  of  the  user  tape 
which  must  be  written  in  order  to  be  readable  by  INPUTT5.  The  unformatted  binary  tape  can 
only  be  read  by  a  computer  of  the  same  manufacturer  as  the  one  that  created  the  tape.  The 
formatted  tape  can  be  created  and  read  by  different  computers  (CDC,  UNIVAC,  IBM,  and 
VAX).  The  data  blocks  to  be  recovered  can  be  matrices,  tables,  or  both. 


DMAP  CALLING  SEQUENCE: 

INPUTT5  /DB1 , DB2 , DB3 , DB4 , 0B5/C , N , Pl/C , N , P2/C , N , P3/C , N , P4  $ 

INPUTT5  is  intended  to  have  the  same  logical  action  as  the  FORTRAN  User  File  module 
INPUTT2  and  the  GINO  User  File  mcdule  INPUTT1  except  for  formatted  tape.  It  is  therefore 
suggested  that  the  examples  shown  under  modules  INPUTT2  and  0UTPUT1  be  used  for  0UTPUT5 
as  well,  excepting  the  addition  of  the  P4  parameter. 


INPUT  DATA  BLOCKS: 

Input  data  blocks  are  not  used  in  this  module  call  statement. 


OUTPUT  DATA  BLOCKS: 

DBi  are  data  blocks  which  will  be  recovered  from  one  of  the  NASTRAN  tape  files  INP1,  INP2 
through  INP9  (UT1,  UT2  for  CDC  computer).  Any  or  all  of  the  output  data  blocks  may  be 
purged.  Only  non-purged  data  blocks  will  be  taken  from  the  user  tape.  The  data  blocks 
will  be  taken  sequentially  from  the  tape  starting  from  a  position  determined  by  the  value 
of  the  first  parameter.  Note  that  any  purged  output  file  will  cause  skipping  of  a 
corresponding  file  in  the  user  input  tape.  The  output  data  block  sequence  A,B,,,  is  not 
equivalen'  to  ,A,,8,  ,or  ,,,A,B. 


DIRECT  MATRIX  ABSTRACTION 


UNFORMATTED  TAPE: 

The  rest  of  the  unformatted  tape  can  be  read  by  the  following  FORTRAN  code: 

READ  (TAPE)  L,J,K, (ARRAY(I) , I*J,K) 
where  L  is  a  control  word; 

1=0,  ARRAY  contains  matrix  (or  table)  header  record 
=+n,  ARRAY  contains  data  for  the  nth  column  of  the  matrix 
=-l,  ARRAY  contains  end  of  matrix  record. 

The  ARRAY  below  J  and  above  K  are  zeros. 

The  matrix  header  record  and  the  table  header  record  (L=0)  differ  only  on  the  5th  and  6th 
words  of  ARRAY.  If  both  words  are  zeros,  it  is  a  table  header,  and  the  entire  table  data 
can  ^  _ad  by: 

READ  (TAPE)  L, (ARRAY ( I ) , 1=1, L) 

where  ARRAY  may  contain  integers,  BCD  words,  and  real  single  and  double  precision 
numbers. 

Table  data  ends  with  a  (1,0.0)  record. 


FORMATTED  TAPE: 

For  matrix  data,  the  rest  of  the  formatted  tape  can  be  read  by: 

READ  (TAPE, 20)  L,J,K, (ARRAY(I) , I=J,K) 

20  FORMAT  (318,/, (10E13.6))  (for  single  precision  data)  or 

20  FORMAT  (318,/, (5D26.17))  (for  double  precision  data) 

where  the  control  words  L,  J,  and  K  are  the  same  as  in  the  unformatted  case,  and  th 
data  type,  single  or  double  precision,  is  determined  already  by  the  4th  word  of  the 
matrix  trailer  embedded  in  the  matrix  header  record.  (See  Remark  5  of  0UTPUT5 
module) 

For  table  data,  the  rest  of  the  formatted  tape  can  be  read  by: 

CHARACTER*5  ARRAY (500) 

READ  (TAPE, 30)  J, (ARRAY(I) , 1=1 , J) 

30  FORMAT  (I10.24A5,/, (26A5)) 

Notice  the  formatted  record  was  written  in  the  units  of  5-byte  character  words,  and  the 
first  byte  of  each  unit  indicates  what  data  type  follows.  The  following  table  summarizes 
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the  method  to  decode  the  character  data  in  ARRAY. 


FIRST  BYTE 

DATA  TYPE 

OF  ARRAY 

UNITS  USED 

FORMAT 

7' 

BCD  word 

1 

A4 

'I' 

Integer 

2 

19 

'R' 

Real,  s.p. 

3 

E14.7 

'D' 

Real,  d.p. 

3 

D14.7 

'X' 

Filler 

1 

4X 

Table  data  ends  with  a  (I/O')  record. 


VIII.  EXAMPLES: 

S  COPY  KJI  AND  KGG  TO  INP1  (UNIT  15),  SEQUENTIAL  FORMATTED  TAPE 
OUTPUTS  KOI, KGG, , ,//-l/15/*MYTAPE*/l  * 

S  RECOVER  THE  2  FILES  FROM  INP1  (UNIT  15)  AND  MAKE  THEM  NASTRAN  GINO  FILES 
INPUTT5  /OKOI.OKGG, , , / - 1/ 1 5/*MYTAPE*/ 1  $ 


VIII.  REMARKS: 

1.  Since  open  core  is  used  to  receive  data  from  user  input  tape,  .NPUTT5  can  handle  all 
kinds  and  all  sizes  of  data  blocks. 

2.  The  UNIVAC  and  VAX  users  should  read  the  Important  Note  at  the  end  of  the  description 
of  the  INPUTT2  module. 
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I.  NAME:  OUTPUTS  (Creates  A  User-Written  FORTRAN  File,  Formatted  or  Unformatted) 

(The  companion  module  is  INPUTT5) 


II.  PURPOSE:  Writes  up  to  five  NASTRAN  GINO  data  blocks  to  a  user  FORTRAN  file  using  a 

FORTRAN  write,  formatted  or  unformatted.  (The  FORTRAN  file  may  reside  either  on  physical 
tape  or  on  a  mass  storage  device.)  If  the  data  block  contains  matrix  data,  each  matrix 
column  is  first  unpacked,  then  written  out  to  the  user  file  in  unpacked  form.  If  the  data 
block  contains  table  data  and  formatted  records  are  requested,  a  dynamic  scheme  is  used 
to  generate  the  appropriate  format  for  the  FORTRAN  write.  Coded  symbols  are  also  included 
in  the  formatted  table  data,  so  that  they  can  be  read  back  into  the  NASTRAN  system  by  the 
INPUTT5  module,  or  by  a  user  written  FORTRAN  program.  Mixed  matrix  and  table  data  blocks 
are  allowed  in  one  OUTPUTS  operation. 

The  unformatted  (binary)  user  file  is  intended  to  be  used  later  in  the  same  computer,  or 
a  similar  computer  of  the  same  manufacturer.  Tne  formatted  file  can  be  generated  in  one 
computer  system  and  used  later  in  another,  with  complete  freedom  in  operating  systems  and 
computer  manufacturers.  The  formatted  file  can  be  viewed  and  edited  by  the  use  of  the 
system  editor.  The  records  contain  132  characters  (or  less)  per  line. 

The  parameters  in  0UTPUT5  are  modeled  after  OUTPUT2.  They  can  be  used  to  direct  which 
user  output  file  (INP1,  INP2,  UT1  etc.)  is  to  be  used,  to  write  formatted  or  unformatted 
records,  to  position  the  output  file  prior  to  writing,  and  to  place  an  End-Of-File  mark 
at  the  end  of  the  tape.  Multiple  calls  are  allowed.  The  user  is  cautioned  to  be  careful 
when  positioning  the  user  output  file  with  0UTPUT5,  since  he  may  inadvertently  destroy 
information  through  improper  positioning.  Even  though  no  data  blocks  are  written,  an  EOF 
will  be  written  at  the  completion  of  each  call,  which  has  the  effect  of  destroying 
anything  on  the  tape  forward  of  the  current  position. 


III.  DMAP  CALLING  SEQUENCE: 

OUTPUTS  DB1 , DB2 , DB3 , DB4 , DB5//C , N, Pl/C , N , P2/C , N , P3/C , N , P4/C ,N,T1/C,N,T2/ 

C,N,T3/...C,N,T10  $ 

OUTPUTS  is  intended  to  have  the  same  logical  action  as  the  FORTRAN  User  File  module 
0UTPUT2  and  the  GINO  User  File  module  0UTPUT1,  except  for  formatted  tape.  It  is  therefore 
suggested  that  the  examples  shown  under  modules  0UTPUT2  and  0UTPUT1  be  used  for  0UTPUT5 
as  well,  excepting  the  addition  of  the  P4  parameter.  All  samples  should  be  ended  with  a 
call  to  OUTPUTS  with  Pl=-9. 
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IV.  INPUT  DATA  BLOCKS: 

DBi  -  Any  data  block  which  the  user  desires  to  be  written  on  one  of  the  NASTRAN  FORTRAN 
user  files  INPT,  INPi,  INP2,...,  INP9.  Any  or  all  of  the  input  data  blocks  may  be 
purged.  Only  unpurged  data  blocks  will  be  placed  on  the  user  file. 


V.  OUTPUT  DATA  BLOCKS:  None. 


VI.  PARAMETERS: 

1.  The  meanings  of  the  first  three  parameter  values  (PI,  P2,  P3)  are  the  same  as  those 
described  for  the  0UTPUT2  Module,  except  the  user  file  code  and  the  FORTRAN  file  name 
are  given  below.  (The  default  value  for  P2  is  15,  or  11  for  a  CDC  machine.) 


FORTRAN  LOGICAL 

UNIT,  P2 

USER  FILE  CODE 

11 

UT1  (CDC  only) 

12 

UT2  (CDC  only) 

14 

INPT  (UN I VAC, VAX) 

15 

INPI  (All 

16 

INP2  machines 

: 

:  except 

?3 

INP9  CDC) 

/ 

INPT  (IBM  only) 

The  fourth 

.P4)  for  this  module  is  used  to  specify  whether  the  user  output 

j^e  is  to  b 

..i  formatted  (P4=l),  or  unformatted  (P4=0,  default).  Unless  the 

.  '  is  to  be  used 

later  by  a  different  computer  or  a  different  operating  system,  the 

umormatted  tape  should  be  used. 

3.  The  10  Ti  parameters  (Tl,  T2,  T3,...,  T10)  are  used  only  for  taDle  data  blocks.  They 
are  used  only  when  a  formatted  output  file  is  requested  (P4=l),  and  the  user  wants  to 
override  the  automatic  format  generation  of  the  0UTPUT5  module.  (Default  -  all  Ti  are 
zeros) 

The  following  rules  are  used  to  create  user-directed  output  format: 

a.  9  digits  must  be  specified  on  a  Ti  parameter.  Zero  fill  if  necessary. 

b.  The  digits  are  continued  among  the  Ti  parameters;  therefore  up  to  90  digits  are 
allowed.  The  digits  are  arranged  from  left  to  right.  First  digit  specifies  the 
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format  of  the  first  data  word.  Second,  third,  fourth,  etc.,  specify  the  second, 
third,  fourth  data  words,  etc.  (See  exception  below  using  digits  5  through  9} 
c.  The  values  of  digits  and  their  meanings  are  - 

0,  format  not  specified;  whatever  format  OUTPUTS  generated  will  be  used, 

1,  specifies  integer  format, 

2,  specifies  single  precision  real  format, 

3,  specifies  BCD  format, 

4,  specifies  double  precision  real  format,  and 

5-9,  specify  multiple  format  of  the  same  type  indicated  by  next  digit,  which 
must  be  0  through  4. 

e.g.  061352000  is  same  as  0111111322222000 


VII.  METHODS: 

The  methods  used  to  transfer  data  from  NASTRAN  GIN0  data  blocks  to  the  user  output  tape 
(or  file)  depend  on  whether 

a.  the  data  blocks  are  matrix  or  table, 

b.  formatted  or  unformatted  output  tape  is  requested,  and 

c.  data  contains  single  precision  real  numbers  or  double  precision  numbers,  or  both. 
(Table  data  block  only) 

The  methods  used  must  also  guarantee  continuity  of  mixed  matrix  and  table  types  of  block 
data  on  the  user  output  tape.  That  is,  the  mixed  data  must  be  able  to  be  read  back  into 
the  NASTRAN  system,  or  processed  by  a  user's  program,  by  a  common  switching  mechanism. 

0UTPUT5  treats  any  input  data  block  as  matrix  if  the  5th  and  the  6th  words  (maximum  non¬ 
zero  matrix  column  length  and  matrix  density)  are  both  non-zero.  Otherwise,  the  data 
block  is  table.  This  method  is,  however,  not  perfect.  Most  table  data  blocks  generated  by 
LINK1,  such  as  GE0M1,  GE0M2,  EPT,  MPT,  etc.  may  have  non-zero  5th  and  6th  trailer  words. 

UNFORMATTED  TAPE  - 

The  data  transfer  from  a  GIN0  file  to  an  unformatted  tape  is  comparatively  simple.  The 
difference  in  processing  matrix  data  and  table  data  lies  in  a  single  key  word  of  the 
length  of  each  record. 

MATRIX  -  A  matrix  header  record  that  includes  the  original  GINO  trailer  is  written  to 
user  tape  first.  Thus  the  total  number  of  records  (equal  number  of  columns)  and  the 
length  of  each  record  (equal  number  of  rows)  are  known.  Each  column  of  the  matrix  is 
unpacked  and  copied  out  to  the  user  tape,  except  that  the  leading  and  trailing  zeros  are 
not  copied  out.  The  data  is  either  single  precision  or  double  precision  real  numbers. 
Each  output  record  is  also  preceded  by  three  control  words.  The  following  FORTRAN  code 
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can  read  one  such  column  array  (the  ICOL  matrix  column): 

READ  (TAPE)  IC0L,JB,JE, (ARRAY(J) ,JB,JE) 

TABLE  -  A  table  header  record,  with  the  5th  and  6th  trailer  words  set  to  zeros,  is  also 
written  cut  to  indicate  the  following  records  are  of  table  type.  Records  from  the  input 
GINO  data  block  are  read  and  transferred  to  user  tape  directly,  except  each  output  record 
is  preceded  by  one  additional  word,  which  tells  the  total  length  of  this  current  record. 
The  following  FORTRAN  code  can  be  used  to  read  one  such  record: 

READ  (TAPE)  LENGTH, (ARRAY (J) ,0=1 , LENGTH) 

FORMATTED  TAPE  - 

Most  of  the  attributes  of  unformatted  tape  apply  equally  well  to  the  formatted  tape, 
except  tapes  are  written  with  FORTRAN  formats. 

MATRIX  -  All  integers  are  written  in  18  format,  BCD  in  A4  format,  single  precision  real 
numbers  in  E13.6,  and  double  precision  numbers  in  D26.17.  Only  the  matrix  header  record 
can  have  all  four  data  types;  the  matrix  column  records  contain  only  real  numbers.  The 
following  FORTRAN  code  reads  the  header  record  and/or  a  matrix  column: 

WRITE  (TAPE, 10)  I,J,K, (A(L) ,L=J,K) 

10  FORMAT  (318,/, (10E13.6  ))  (for  single  precision  data)  or 

10  FORMAT  (318,/, (  5D26.17))  (for  double  precision  data) 

TABLE  -  All  integers  are  written  in  ('I', 19)  format,  BCD  in  ( '/' , A4)  format,  single 
precision  real  numbers  in  ('R',E14.7)  format,  and  double  precision  numbers  in 
('D',E14.7).  Notice  that  5  bytes  are  used  for  BCD,  10  bytes  for  integer,  and  15  bytes  for 
real  numbers,  single  or  double  precision.  NASTRAN  table  data  blocks  often  contain 
integers,  BCD,  and  single  and  double  precision  real  numbers  in  a  mixed  fashion.  Each 
table  record  may  have  a  different  table  length.  To  write  formatted  NASTRAN  tables  and  to 
read  them  back  later  present  a  real  challenge  in  FORTRAN  programming.  The  0UTPUT5  module 
calls  subroutine  TABLE5  to  process  table  data,  and  the  INPUTT5  module  calls  subroutine 
TABLEV  to  read  them  back. 

TABLE5  generates  dynamically  a  unit  of  format  -  ('I', 19),  ('/'»A4),  etc.  -  to  match  each 
data  type  -  integer,  BCD,  etc.  When  the  synthesized  format  reaches  130  characters  (or 
bytes),  a  line  of  data  is  written  out.  A  table  therefore  may  require  multiple  lines  (each 
line  physically  is  a  record).  In  addition,  the  first  word  of  the  first  line  contains  the 
total  length  of  this  table.  The  following  FORTRAN  code  can  be  used  to  read  back  a  table 


25 


DIRECT  MATRIX  ABSTRACTION 


from  the  user  tape  into  5-character  ARRAY: 

CHARACTER*5  ARRAY (500) 

READ  (TAPE, 20)  LENGTH, (ARRAY(J).J-l, LENGTH) 

20  FORMAT  (I10.24A5,/, (26A5)) 

The  first  byte  of  each  5-character  ARRAY  (which  is  I ,/, R,  or  D)  can  be  used  to  convert 
the  5-,  10-,  or  15-character  data  back  to  BCD,  integer,  or  real  numbers  (single  or  double 
precision).  For  more  details,  see  INPUTT5  module  and  INPTT5  FORTRAN  source  subroutine. 

TABLES  calls  subroutine  NUMTYP  to  determine  the  data  type,  then  issue  the  corresponding 
format  for  output.  NUMTYP,  however,  is  not  one  hundred  percent  foolproof.  One  in  five  or 
ten  thousand  times,  NUMTYP  may  err  in  determining  exactly  the  data  type.  Also,  when 
TABLE5  passes  a  computer  word  to  NUMTYP  with  no  other  information,  NUMTYP  cannot  tell  if 
it  is  part  of  a  double  precision  word,  or  if  it  is  a  single  precision  word.  (In  this 
case,  single  precision  word  is  assumed.)  Finally,  NUMTYP  cannot  distinguish  between 
integer  zero  and  real  number  zero.  (A  period  may  be  important  in  the  output  format). 
TABLE5  therefore  may  generate  the  wrong  format  due  to  NUMTYP's  internal  limitations. 

In  case  that  TABLE5  does  produce  erroneous  format,  the  user  can  override  the  automatic 
format  generation  by  the  Ti  parameters  which  supply  OUTPUTS  the  exact  format  to  use,  in  a 
condensed,  coded  form.  90  (or  more  if  5,  6,  7,  8,  or  9  are  used  in  the  Ti  specification! 
unit  formats  can  be  specified. 

The  following  example  illustrates  the  use  of  the  Ti  parameter. 

Data  on  table: 

3  4  3.4  5.0E-3  TESTING  .6D+7  9  G  3.2  8  0.  0  4  12  13  14  15  28  61  88 

14  44  .70+7 

Ti  specification: 

Tl=112233413,  T2=212516140  or 

Tl=604000025,  T2=060400000  (7th  and  24th  words  are  d.p. 

and  12th  word  is  real) 

NOTE  -  2  BCD  words  in  'TESTING', 

all  others  are  1  computer  word  per  data  entry. 

T2,  the  last  Ti  used  here,  must  fill  up  with  zeros  to  make  up  a  9-digit  word. 
When  viewed  with  a  system  editor,  the  above  example  looks  like  this  (first  line): 
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371  31  4R  5.0000000E-3/TEST/ING  D  6.0000000D+07  etc. 

++ . +++++++++ . ++++++++++--- . 

1st  2nd  3rd  4th  5th  data  etc. 

The  first  37  indicates  there  are  37  5-byte  words  in  this  record. 

the  '++ - '  line  and  the  'lst,2nd...'  line  are  added  here  for  video  purposes. 

Since  the  formatted  data  line  may  not  end  exactly  at  130  bytes,  one  or  two  fillers  of  the 
form  'X'  and  four  blanks  may  appear  at  the  end  of  an  output  line. 

The  matrix  data  blocks  are  handled  by  the  main  routine  0UTPT5.  0UTPT5  calls  TABLE5  only 
when  the  former  encounters  a  table  data  block  input. 


VIII.  EXAMPLES: 

$  Copy  KOI ,  KGG,  and  CASECC  to  INP2  (unit  16),  sequential  formatted  tape 
0UTPUT5  KOI, KGG, CASECC,, //- 1/16/*MYTAPE*/1  $ 

$  Recover  the  files  from  INP2  (unit  16)  and  make  them  NASTRAN  GINO  files 
INPUTT5  /OKO I , OKGG , OCASECC , ,/ - 1/1 6/*MYTAPE*/l  $ 

IX.  REMARKS: 

1.  Formatted  tape  (P4=l )  takes  a  longer  time  and  more  space  to  write  than  the 
unformatted  tape.  Unless  the  tape  is  intended  to  be  used  later  by  a  different 
computer,  unformatted  tape  should  be  selected  (P4=0). 

2.  The  OUTPUTS  'records'  are  written  to  tape  'identically'  with  both  formatted  and 
unformatted  FORTRAN  write  commands.  The  matrix  header  and  the  table  header  can  be 
read  'identically'  without  prior  knowledge  of  what  type  of  data,  matrix  or  table,  is 
coming  up  next. 

3.  All  matrix  records  are  written  to  tape  in  a  standard  way,  except  the  first  matrix 
header  record. 

All  table  records  are  written  to  tape  in  a  standard  way,  including  table  header 
record  and  the  last  ending  record. 

4.  The  first  tape  header  record  is  composed  of  9  words  as  shown  below: 
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RECORD  WORD 

CONTENTS 

P4=0 

P4=l 

0  1,2 

Tapeid  (=P2) 

2*BCD 

2A4 

3,4 

Machine  (CDC,UNIVAC,IBM,VAX) 

2*BCD 

2A4 

5-7 

Date 

3*INT 

318 

8 

System  BUFFER  SIZE 

I  NT 

18 

9 

P4  used  in  creating  tape  (0,1) 

INT 

18 

5.  This  remark  and  the  next  one  deal  only  with  matrix  data  blocks. 

Three  types  of  data  records  follow  the  header  record,  or  the  EOF  record  of  a  previous 
data  block.  They  are: 

a.  Matrix  header  record 

b.  Matrix  column  data  record 

c.  EOF  record 

These  records  are  written  to  tape  in  a  standard  procedure.  Three  control  words  are 
written  out  first,  followed  by  the  actual  data.  Binary  FORTRAN  write  is  used  in 
unformatted  tape  (P4=0),  and  each  logical  record  holds  a  complete  set  of  data.  The 
following  FORTRAN  statement  is  used  to  write  the  entire  data  record: 

WRITE  (TAPE)  I,J,K, (A(L) ,L=0,K) 

For  formatted  tape,  multiple  logical  records  are  actually  written  for  each  complete 
set  of  data.  The  following  FORTRAN  statements  are  used  to  write  the  entire  data 
record: 

WRITE  (TAPE, 30)  I,J,K,(A(L),L=J,K) 

30  FORMAT  (318,/, (10E13.6))  (for  single  precision  data)  or 

30  FORMAT  (3IS,/, (5D26. 17) )  (for  double  precision  data) 

In  the  above  WRITE  statements,  the  value  of  I  is  used  to  indicate  the  type  of  record 
just  read. 

VALUE  OF  I  TYPE  OF  RECORD 


0  Matrix  header  record 

+n  Nth  matrix  column  data 

-1  End-of-matrix 

The  column  data  is  written  to  tape  from  the  first  non-zero  row  position  (J)  to  the 
last  non-zero  row  position  (K).  The  following  table  describes  the  contents  of  the 
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data  records  written  to  tape  by  the  OUTPUT5  module. 


REC0RD+  WORD 

CONTENTS 

P4-0 

P4=l 

1 

Matrix  header  record  - 

1 

0 

INT 

18 

2,3 

1,1 

2*  INT 

218 

4 

0.0 

F.P. 

E13.6  or 

D26.17 

5-10 

Matrix  trailer 

6*  I  NT 

618 

(Col , Row, Form, Type, Max, Density) 

11,12 

OMAP  Name  of  DB1 

2*BCD 

2A4 

2 

1 

1  (First  matrix  column) 

INT 

18 

2 

Row  pos.  of  first  non-zero  elem. 

INT 

18 

3 

Row  pos.  of  last  non-zero  elem. 

INT 

18 

4-W 

First  banded  column  data 

6*  I  NT 

(**) 

(W=Word3-Word2) 

3 

1 

2  (Second  matrix  column) 

INT 

18 

2 

Row  pos.  of  first  non-zero  elem. 

INT 

18 

3 

Row  pos.  of  last  non-zero  elem. 

INT 

18 

4-W 

Second  banded  column  data 

6*  INT 

(**) 

4 

1 

3  (Third  matrix  column) 

INT 

18 

2 

Row  pos.  of  first  non-zero  elem. 

INT 

18 

3 

Row  pos.  of  last  non-zero  elem. 

INT 

18 

4-W 

Third  banded  column  data 

6*  I  NT 

(**) 

L 

1 

L-l  (last  matrix  column) 

INT 

18 

2 

Row  pos.  of  first  non-zero  elem. 

INT 

18 

3 

Row  pos.  of  last  non-zero  elem. 

INT 

18 

4-W 

Last  banded  column  data 

6*INT 

(**) 

L+l 

1 

-1 

INT 

18 

2,3 

1,1 

2*INT 

218 

4 

0.0 

F.P. 

D26.17 

(Repeat  records  1  through  L+l  for  next  matrix  data  block.) 
Where  (**)  is  (10E13.6)  or  (5D26.17). 


29 


DIRECT  MATRIX  ABSTRACTION 


(+RECORD  No.  does  not  correspond  one  to  one  to  the  actual  physical 
record  No.) 

6.  A  record  of  (n, 1,1, 0.0)  is  written  out  for  a  null  Nth  column. 

7.  This  remark  deals  only  with  table  data  blocks. 

Three  types  of  data  record  follow  the  header  record,  or  an  EOF  record  of  previous 
data  block.  They  are: 

a.  Table  header  record 

b.  Record(s)  of  a  table  (a  table  data  block  can  have  more  than  one  table  record) 

c.  EOF  record. 

The  table  header  record  has  a  general  structure  as  in  the  standard  procedure  for  the 
matrix  records,  except  that  the  5th  and  6th  words  of  the  matrix  trailer  section  are 
zeros. 

The  table  record  was  discussed  in  great  detail  in  the  METHOD  section  for  both 
formatted  and  unformatted  output  tape.  A  table  record  is  created  for  each  table  in 
the  input  data  block,  and  no  skipping  forward  or  backward  is  allowed  on  the  input 
file. 

If  double  precision  data  are  encountered  in  a  table  record,  the  double  precision  data 
will  be  truncated  to  single  precision,  but  the  format  of  ('D',E14.7)  will  be  used. 
(INPUTT5  will  re-generate  the  data  back  to  their  double  precision  status.) 

An  End-Of-File  record  in  the  form  of  '-1  1  1  0.0D+0'  ends  the  table  record  output. 

8.  Since  the  formatted  tape  (P4=l )  is  intended  to  be  used  in  different  computers,  the 
0UTPUT5  module  appends  no  system  control  word(s)  to  the  FORTRAN  written  formatted 
records.  The  output  tape  must  be  unlabeled,  fixed  block  size  with  record  size  of  132 
characters,  and  ANSI  unpacked  character  data  set.  The  specification  of  the  tape  is 
either  internally  specified  (UNIVAC)  by  a  FORTRAN  open  statement,  or  uses  system 
default  tape  specification  (IBM  and  VAX).  The  CDC  user  must  specify  the  output  tape 
externally  by  the  appropriate  FILE,  LABEL,  or  REQUEST  cards: 

For  example: 

LABEL , TAPE , NT , 0=1200, CV=AS , F=S , LB=KU , P0=W . 

FILE, TAPE, MRL=132,MBL=132,RT=F,BT=C. 

9.  Since  open  core  is  used  in  data  processing,  the  OUTPUTS  module  is  capable  of  handling 
all  kinds  and  all  sizes  of  input  data  blocks. 
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I.  NAME:  PARAMD  (Parameter  Processor  -  Double  Precision) 


II.  PURPOSE:  To  perfon.i  specified  arithmetic,  logical,  and  conversion  operations  on  double 
precision  real  or  double  precision  complex  parameters. 


DMAP  CALLING  SEQUENCE: 


PARAMD  //  C,N,0P  /  V.N.OUTD  /  V,N,IND1  /  V,N,IND2  /  V,N,0UTC  /  V.N.INC1  /  V,N,INC2  / 
.  V,N,FLAG  $ 


IV.  INPUT  DATA  BLOCKS:  None. 


V.  OUTPUT  DATA  BLOCKS: 
None. 


PARAMETERS: 


OP  -  Input-BCD  operation  code  from  the  table  below  -  no  default 

OUTD  -  Output  D.P. -default  *  Q.OD+O 

IND1  -  Input-D.P. -default  »  0.0D+0 

IND2  -  Input-D.P. -default  =  O.OD+O 

OUTC  -  Output-D.P. -complex-default  ■  (O.OD+O,  O.OD+O) 

INC1  -  Input  -D.P. -complex-default  »  (O.OD+O,  O.OD+O) 

INC2  -  Input  -D.P. -complex-default  »  (O.OD+O,  O.OD+O) 

FLAG  -  Output/output-integer-default=  0  (See  Remark  6) 


The  values  of  parameters  are  dependent  upon  OP  as  shown  in  the  table  described  in  PARAMR 
module  (pages  5.5-40  and  41).  In  addition,  a  new  OP  operation  code  is  added: 


OP  OUTPUTS 


ERR  If  Flag  is  set  to  0  (or  by  default),  NASTRAN  system  NOGO  flag  (the  3rd 

word  of  /SYSTEM/)  is  set  to  integer  zero  unconditionally. 

If  FLAG  is  set  to  non-zero  by  user,  NASTRAN  job  will  terminate  if  any 
preceding  PARAMD  (or  PARAMR)  has  non-fatal  error(s). 
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VII.  REMARKS: 

1.  All  parameters,  except  OP,  must  be  "V"  type.  Default  parameter  values  will  be  used  in 
case  of  error.  Error  in  input  parameter(s)  would  cause  output  parameter(s)  to  pick  up 
the  original  default  value(s). 

2.  All  input  errors  are  non-fatal,  with  error  messages  printed. 

3.  PARAMD  does  its  own  SAVE;  therefore,  a  SAVE  is  not  needed  following  the  module. 

4.  For  OP  «  DIV  or  OP  «  DIVC,  the  output  is  zero  if  the  denominator  is  zero,  and  FLAG  is 
set  to  +1. 

5.  For  OP  »  SIN,  OP  *  COS  or  OP  =  TAN,  the  input  must  be  expressed  in  radians. 

6.  The  default  value  of  FLAG  is  zero  as  stated  in  the  Programmer's  manual.  All  NASTRAN 
releases  prior  to  1989  actually  used  a  +1  instead  of  0.  The  case  where  FLAG  =  -1,  was 
not  affected. 

7.  Remarks  1,  2,  and  6  also  apply  to  the  PARAMR  module.  The  new  ERR  operation  code  is 
also  available  in  PARAMR. 

VIII.  EXAMPLES: 


PARAMR 

//*ERR* 

$ 

PARAMR 

//*ADD* 

/V,N,R1SP4 

/V,N,R1 

/V,N,SP4 

$ 

PARAMR 

//*SUB* 

/V ,N , R1SP4 

/V.N.Rl 

/V,N,SP4 

$ 

PARAMR 

//*ABS* 

/V,N,ABSR1 

/V ,N,R1 

$ 

PARAMR 

//*SQRT* 

/V,N, SQTR1 

/V,N, ABSR1 

J 

PARAMR 

//*MPYC*  ////V , N , CMPY 

/V , N , SCPLX  /V,N,CS1 

$ 

PARAMR 

//*C0MPLEX*//V,N,R1 

/V,N,SP4 

/V,N,0UTC 

$ 

PARAMR 

//*LE* 

//V.N.Rl 

/V , N , S P4////V , N , LEFLG  $ 

PARAMD 

//*MPY* 

/V,N,RDPDP 

/V,N, RDPX 

/V, N , RDPX 

$ 

PARAMD 

//*DIV* 

/V,N,DP4X 

/V, N , DP4 

/V,N,RDPX 

S 

PARAMD 

//*EXP* 

/V,N, EXPX 

/V,N,DP4 

/V , N, RDP 

S 

PARAMD 

//*C0NJ* 

// //V , N , CON JX 

/V,N,CDP4 

$ 

PARAMD 

//*EQ* 

//V, N , EXPX 

/V,N,DP4////V,N,EQFLG  S 

PARAMD 

//*DIYC* 

////Y,N,DIVCX 

/C ,  Y ,  DCPLX.4/V ,  N,  CDP4 

$ 

PARAMD 

//*ERR* 

llll  // 

/C,N,1 

S 

PRTPARM 

//  o 

% 
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VII.  REMARKS: 

1.  RSP,  RDP,  CSX  and  CDX  will  be  set  by  the  module  whenever  they  are  present  and  of  the 
"V"  type  parameters.  The  parameters  will  be  printed  out  in  their  respective  formats 
according  to  their  precision  types.  Warning  message  will  be  printed  if  type  mismatch 
occurs  or  element  specified  is  out  of  matrix  range. 


35 


DMAP  MODULE  DESCRIPTIONS 


2.  After  execution,  the  parameter  value  will  be  delivered  to  NASTRAN's  executive  VPS 
table  as  a  numerical  value  in  the  form  specified  by  any  of  the  parameters  RSP,  RDP, 
CSX,  or  CDX.  The  output  parameters  can  also  be  printed  by  the  PRTPRM  module  which 
carries  normally  more  digits. 

3.  SCALAR  does  its  own  SAVE;  therefore,  a  SAVE  is  not  needed  following  the  module.  There 
is  no  save  for  any  invalid  parameter,  and  the  default  value  remains  unchanged. 

4.  If  [DB]  is  purged,  all  parameter  default  values  remain  unchanged. 

5.  All  the  output  parameters  can  be  printed  out  by  PRTPRM  module. 

6.  See  PARAML  for  similar  capability. 


VIII.  EXAMPLES: 


Obtain  the  value  of  the  element  in  column  8  and  row  2  of  the  matrix  KLL. 

SCALAR  KLL//C,N,2/C,N,8  /V.N.Sl  $ 

SCALAR  KLL//C,N,2/C,N,8  //V,N,D1/V,N,S2/V,N,D2  $ 

The  output  parameters  give  the  following  results: 

51  =  KLL(2,8),  in  single  precision  real, 

DI  »  KLL(2,8),  in  double  precision  real, 

52  *  KLL (2 , 8) ,  in  single  precision  complex  expression,  and 

D2  =  KLL(2,8),  in  double  precision  complex  expression. 
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I.  NAME:  PARAML  (Abstract  parameters  from  a  list) 

II.  PURPOSE:  To  convert  an  element  from  a  GINO  matrix  or  table  oata  block,  to  a  legitimate 
NASTRAN  parameter,  or  parameters 

III.  DMAP  CALLING  SEQUENCE: 

PARAML  DB  //  C,N,OP  /  V,N,P1  /  V,N,P2  /  V,N,RSP/  V,N,INT/  V,N,RDP/  V , N , BCD/  V,N,CSX/ 
V,N,CDX  $ 

IV.  INPUT  DATA  BLOCKS: 

DB  -  Any  GINO  data  block  file  (table  or  matrix,  single  precision  or  double  precision, 
real  or  complex) 

V.  OUTPUT  DATA  BLOCKS:  None 

VI.  PARAMETERS: 

OP  -  One  of  the  following  key  words,  BCD  input,  no  default.  'MATRIX',  'NULL', 
'PRESENCE',  'TRAILER',  'TABLE1' ,  'TABLE2' ,  or  'TABLE4' 

P1,P2  -  Input,  see  Remark  4  below,  integer  input,  default®  1,1 

P2  -  Output,  integer  (only  in  OP=TRAILER) 

RSP  -  Output,  single  precision  real  number,  default®  0.0 

INT  -  Output,  integer  number,  default®  0 

RDP  -  Output,  double  precision  real  number,  default®  0.D+0 

BCD  -  Output,  two  BCD  words  in  2A4  format,  default®  (VOID) 

CSX  -  Output,  single  precision  complex  number,  default®  (0.,0.) 

CDX  -  Output,  double  precision  complex,  default®  (0.D+0.0.D+0) 
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VII.  REMARKS: 

1.  RSP,  INT,  RDP,  BCD,  CSX  and  CDX  will  be  set  by  the  module  whenever  they  are  present 
and  of  the  "V"  type  parameters.  The  parameters  will  be  printed  out  in  their 
respective  formats  according  to  their  precision  types.  Warning  message  will  be 
printed  if  type  mismatch  occurs  or  end-of-record  is  encountered. 

2.  After  execution,  the  parameter  value  will  be  delivered  to  NASTRAN's  executive  VPS 
table  as  a  numerical  value  in  the  form  specified  by  any  one  or  some  of  the  parameters 
RSP,  RDP,  CSX,  CDX,  INT,  or  BCD  (4  BCD  characters  per  word,  the  rest  of  the  word 
blank  filled). 

3.  PARAML  does  its  own  SAVE;  therefore,  a  SAVE  is  not  needed  following  the  module. 
Invalid  parameter  due  to  type  mismatch  or  EOR  encountered,  is  not  saved  and  the 
default  value  remains. 

4.  PI  and  P2  control  the  location  in  the  data  block  of  the  element  to  be  selected.  The 
meaning  of  PI  and  P2  depend  on  OP  selection  as  explained  in  Remarks  5  through  9. 

5.  If  OP  *  TABLEi  (where  i=l,2,0R  4),  PI  is  the  record  number  and  P2  is  the  word 
position  of  the  target  element  in  DB.  Word  position  is  based  on  computer  word  count 
(1  word  per  integer  or  s.p.real,  2  words  per  d.p.real  or  s.p. complex,  and  4  words  per 
d. p. complex) .  The  table  data  from  record  PI  and  word  P2  (or  word  P2  plus  more)  will 
be  delivered  to  the  VPS  table  as  a  numerical  value  in  the  form  specified. 

If  OP  «  TABLEI,  one  data  word  from  P2  word  position,  reco* ,  ;  PI  be  used  to  form 
the  output  parameter. 

If  OP  *  TABLE2,  two  data  words  from  P2  and  P2+1,  record  Pi,  will  be  used. 

If  OP  -  TABLE4,  four  words  from  P2,  P2+1,  P2+2,  and  P2+3,  record  PI,  will  be  used. 

Since  table  data  block  DB  can  contain  mixed  types  of  data,  the  user  must  know  ahead 
of  time  what  the  original  data  type  is,  and  select  TABLEI,  TABLE2,  or  TABLE4 
accordingly. 
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For  example, 

the  data  in  P2,  p2+l,  P2+2,  and  P2+3  are  a,  b,  c,  d,  and  the  output  parameter 
request  is  d.p.complex  CDX, 

TABLE1  gives  CDX  -  (a.D+0,  0.D+0) 

TA3LE2  gives  CDX  =  (a.D+0,  b.D+0) 

TABLE4  gives  CDX  «  (e.D+0,  f.D+0) 

where  e  is  a  d.p.real  number  formed  by  the  union  of  a  and  b, 
and  f,  by  the  union  of  c  and  d. 

6.  If  OP  «  MATRIX,  PI  is  the  row  number  and  P2  is  the  column  number  of  the  matrix  in 
[DB]  to  be  read.  The  matrix  element  of  (ROW, COL)  will  be  delivered  to  VPS  as  a 
numerical  value  in  the  form  specified  by  one  or  more  of  the  parameters  RSP,  RDP,  CSX, 
or  CDX.  Requests  for  CSX  or  CDX  from  a  real  matrix  will  assign  the  value  of  (ROW, COL) 
to  the  real  part  and  zero  to  the  imaginary  part.  The  requested  output  parameter(s) 
are  set  to  zero(s)  and  a  warning  message  is  issued  if: 

P '  PI  and/or  P2  exceed  the  matrix  order, 

(2)  requests  for  RSP  and  RDP  from  a  complex  matrix, 

(3)  requests  for  INT  and  BCD  from  [DB], 

and  the  invalid  output  parameter(s)  are  not  saved. 

(Notice  that  row  first  and  column  second  is  consistent  with  SCALAR  module  parameter 
input,  and  also  with  common  practice  in  matrix  element  designation;  (row, column)) . 

7.  If  OP  -  NULL  and  if  [DB]  is  a  matrix,  INT  is  set  to  -1  if  the  sixth  word  of  the 
matrix  trailer,  the  matrix  density,  is  zero. 

8.  If  OP  -  PRESENCE,  INT  will  be  -1  if  input  data  block  is  purged. 

9.  ‘  OP  »  TRAILER,  P2  is  output  as  the  value  of  ith  word  of  the  matrix  trailer  where  i 

is  set  by  PI  in  accordance  with  the  following  table. 

PI  TERM  OF  MATRIX  TRAILER 


1  Numbers  of  columns 

2  Number  of  rows 

3  Form  of  matrix 

4  Precision  of  matrix 

5  Maximum  number  of  nonzero  terms  in  any  column  of  the  matrix 

6  Matrix  density 


10.  One  or  more  of  the  output  parameters  can  be  requested  simultaneously. 
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11.  After  execution,  a  user  information  message  prints  out  the  parameter  value  in  the 
format  prescribed  by  the  user.  The  output  parameters  can  also  be  printed  by  the 
PRTPRM  module  which  carries  normally  more  digits.  (PRTPRM  may  actually  print  integer 
zero  in  a  real  number  format,  0.0) 

12.  See  SCALAR  module  for  similar  capability. 


VIII.  EXAMPLES: 


Obtain  the  value  in  column  1,  row  4  of  a  real  matrix,  and  record  2  word  5  of  a  table. 


PARAML  KGG  //*MATRIX*/C,N,4/C,N,1  /V,N,STERM  $ 

PARAML  KGG  //*MATRIX*/C,N,4/C,N,1  ///V,N,DTERM  S 

PARAML  KGG  //*MATRIX*/C,N,4/C,N, 1  /////V,N,CSTERM  $ 

PARAML  KGG  //*MATRIX*/C,N,4/C,N, 1//////V , N , CDTERM  $ 

PARAML  KGG  //*MATRI X */C , N , 4/C , N , 1/V , N , TERM1//V , N , TERM2//V , N , TERM3/V , N , TERM4  S 
PARAML  CASECC  //*TABLE1*/C , N , 2/C , N , 2  //V,N,ATERM  S 
PARAML  CASECC  //*TABLE2*/C, N, 2/C , N , 5////V, N, BTERM  $ 


The  above  output  parameters  yield  the  following  results: 


STERM  , TERM1 
DTERM  ,TERM2 
CSTERM.TERM3 
CDTERM, TERM4 
ATERM  -  2nd 
BTERM  =  5th 


«=  KGG(4, 1 ) ,  in  single  precision, 

»  KGG(4,1),  in  double  precision, 

*=  KGG (4 , 1 ) ,  in  single  precision  complex  expression, 

«  KGG (4 , 1 ) ,  in  double  precision  complex  expression 

word  of  the  2nd  record  of  CASECC,  integer,  and 

and  6th  words  of  the  2nd  record  of  CASECC,  2  BCD  words. 
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I.  NAME:  ADD  (Matrix  Add) 


II.  PURPOSE:  To  compute  [X]  =  a[A]  +  b[B]  where  a  and  b  are  scale  factors. 


III.  DMAP  CALLING  SEQUENCE: 

ADD  A,B  /  X  /  C,Y,  ALPHA=(1. 0,2.0)  /  C,Y,  BETA-(3. 0,4.0) 

/  C,Y,DALPHA=(5.D+0,6.D-1)  /  C,Y,DBETA=(7.D+2,8.D-3)  S 


IV.  INPUT  DATA  BLOCKS: 

A  -  Any  GINO  matrix 

B  -  Any  GINO  matrix 


V.  OUTPUT  DATA  BLOCKS: 

X  -  Matrix 


VI.  PARAMETERS: 

ALPHA  -  Input-complex-single  precision,  default  »  (0.0,  0.0).  This  is  a,  the  scalar 
multiplier  for  [A]  if  DALPHA  and  DBETA  are  zeros. 

BETA  -  Input-complex-single  precision,  default  «  (0.0,  0.0).  This  is  b,  the  scalar 
multiplier  for  [B]  if  DALPHA  and  DBETA  are  zeros. 

DALPHA  -  Input-complex-double  precision,  default  »  (0.0D+0,  O.OD+O).  This  is  a,  the 
scalar  multiplier  for  [A]  if  ALPHA  and  BETA  are  zeros. 

DBETA  -  Input-complex-double  precision,  default  =  (O.OD+O,  O.OD+O).  This  is  b,  the 
scalar  multiplier  for  [B]  if  ALPHA  and  BETA  are  zeros. 


VII.  SUBROUTINE:  DADD 

VIII.  METHOD: 

The  parameters  are  checked.  If  [A]  is  not  purged,  the  number  of  columns,  rows,  and  form 
of  [X]  are  set  to  those  of  [A].  Otherwise  the  [B]  descriptors  are  used.  The  flags  for  the 
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type  of  [X]  (see  Remark  2)  and  multiply-add  operations  are  set  before  calling  subroutine 
SADD,  which  performs  the  actual  scalar  multiplication  and  matrix  addition. 


VIII.  REMARKS: 

1.  Matrix  [A]  and/or  matrix  [B]  may  be  purged,  in  which  case  the  corresponding  term  in 
the  matrix  sum  will  be  assumed  null.  The  input  data  blocks  must  be  unique. 

2.  Matrix  [X]  cannot  be  purged.  The  type  of  [X]  is  maximum  of  the  types  of  [A],  [B],  a, 
b.  The  size  and  shape  of  [X]  are  the  size  and  shape  of  [A]  if  [A]  is  present.  Otherwise 
they  are  those  of  [B]. 

3.  The  use  of  double  precision  parameters  DALPHA  and  DBETA  will  force  the  matrix 
multiply-and-add  operation  to  be  performed  in  double  precision  unconditionally.  The 
single  precision  ALPHA  AND  BETA  may  cause  the  multiply-and-add  operation  to  be  performed 
in  single  precision  or  in  double  precision  depending  on  the  matrix  original  precision 
types . 

4.  Either  the  DALPHA-DBETA  pair  or  the  ALPHA-BETA  pair  is  used.  They  cannot  be  mixed; 
that  is,  DALPHA-BETA  pair  is  illegal;  so  is  DALPHA-ALPHA. 

5.  If  Im(ALPHA  or  DALPHA)  or  Im(BETA  or  DBETA)  is  zero,  the  corresponding  parameter  will 
be  considered  real. 
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I.  HM:  GINOFILE  (Gino  File  Creation) 


II.  PURPOSE:  To  capture  data  from  a  scratch  file  of  a  preceding  DMAP  module  and  copy  the  data 
to  a  NASTRAN  GINO  file.  Type  of  data  can  be  table  or  matrix. 


III.  DMAP  CALLING  SEQUENCE: 

GINOFILE  /FILE/C, N,P1/C,N,PZ/C,N,P3  S 

IV.  INPUT  DATA  BLOCK:  None. 


V.  OUTPUT  DATA  BLOCK: 

FILE  -  Any  GINO  output  file  name 

VI .  PARAMETERS: 

PI  -  Any  300-series  scratch  File  number  (301,302,303,...),  integer. 

P2  -  Additional  records  to  be  skipped  on  PI  file  before  data  transfer  from  PI  to 

FILE,  integer.  GINOFILE  will  automatically  skip  over  header  record  if  a  header 
record  exists  in  PI,  or  it  will  not  skip  if  it  does  not  exist.  (Default  P2  = 

0.)  Data  transfer  starts  from  P2+1  record  after  header  (or  no  header)  record  on 
scratch  file. 

P3  -  Last  record  to  be  copied,  or  up  to  an  EOF  mark  on  PI  file.  Total  number  of 
records  copied  is  (P3  -  P2),  integer.  (Default  is  to  copy  to  EOF  mark.) 


VII.  SUBROUTINE: 

GINOFL  -  Subroutine  in  GINOFILE  module 
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VIII.  METHOD: 


At  the  end  of  a  NASTRAN  executable  module,  all  the  input  files,  output  files,  and  scratch 
files  are  closed.  The  input  files  are  read  only  and  they  will  remain  untouched.  The 
output  files  are  saved,  and  their  names  arc  preserved.  (The  output  file  names  are 
actually  allocated  before  the  beginning  of  the  module  execution).  The  scratch  files  are 
released  without  any  mechanism  of  saving  them.  However,  the  data  of  the  scratch  files  are 
still  in  the  system  disc  space,  and  will  remain  there  until  they  are  over-written  by 
another  part  (or  another  module)  of  the  NASTRAN  program.  It  is  at  this  point  that 
GINOFILE  module  grabs  hold  of  a  scratch  file  of  the  preceding  module  and  copies  the  data 
to  a  GINO  output  file,  without  changing  the  scratch  file  data.  Tables  or  matrices  are 
copied  the  same  way  -  as  they  exist  in  the  original  form  on  the  scratch  file. 


A  NASTRAN  GINC  fils  always  has  a  header  record  and  a  S  word  trailer.  However,  the  header 
record  and  the  trailer  are  not  required  for  a  scratch  file,  and  they  may  or  may  not 
exist.  The  GINOFILE  module  will  first  test  the  header  record  of  the  scratch  file  and  skip 
over  it,  if  it  exists.  A  header  record  is  always  generated  by  GINOFILE  for  the  new  GINO 
file.  The  beginning  record  and  the  ending  record  where  data  are  to  be  transferred  are 
under  user  control.  Finally,  a  trailer  for  the  output  file  is  generated  and  saved.  An  EOF 
record  is  written  to  the  new  GINO  file  at  the  completion  of  the  module. 


IX.  DESIGN  REQUIREMENT: 

The  GINOFILE  module  is  mapped  in  all  NASTRAN  Links,  except  LINK1.  The  user  can  request 
this  module  through  a  regular  NASTRAN  DMAP  Alter. 

The  user  must  request  this  module  immediately  following  the  DMAP  module  where  the  scratch 
file  was  used.  It  is  the  user's  responsibility  to  see  that  the  Executive  Segment  File 
Allocator,  XSFA,  does  not  come  in  between  the  preceding  DMAP  module  and  this  GINOFILE 
module.  If  XSFA  does  intervene  before  GINOFILE  execution,  the  FIAT/OSCAR  table  (see  XSFA 
Module  description  in  section  4.9)  is  rearranged,  and  the  scratch  files  are  no  longer 
accessible. 

If  XSFA  does  intervene,  the  user  can  provoke  the  XSFA  operation  and  FIAT/  OSCAR  table 
rearrangement  before  the  execution  of  preceding  DMAP  module  so  that  XSFA  will  not  come  in 
between  this  preceding  and  GINOFILE  modules.  The  technique  here  can  involve  a  DMAP  alter 
to  PURGE  some  obsolete  files,  TABPT  to  print  some  files  that  have  been  generated  some 
time  ago,  and  currently  are  not  on  the  FIAT/OSCAR  table,  or  any  other  DMAP  module  that 
would  disturb  the  NASTRAN  filing  system.  The  user  could  turn  on  DIAG  2  and  observe  the 
flow  of  the  GINO  files  created  or  allocated  by  XSFA/FIAT/  OSCAR  operation. 


47 


DIRECT  MATRIX  ABSTRACTION 


If  the  scratch  file  in  the  preceding  DMAP  module  was  used  repeatedly  such  as  being  used 
in  a  loop,  only  the  "last-time-used"  set  of  data  on  the  scratch  file  can  be  copied  out  by 
GINOFILE. 

The  user  should  turn  on  DIAG  8,15, -n  (where  n  is  the  current  LINK  number)  and  see  that 
the  scratch  file,  FORTRAN  unit  number,  and  associated  trailers  are  being  processed 
correctly. 


X.  DIAGNOSTIC  MESSAGES 


Message  numbers  3001,  3002,  and  3008  may  be  issued  by  GINOFILE. 
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I.  NAME:  DATABASE  (To  Save  Grids,  Elements,  Displacements,  Velocities,  Accelerations, 

Loads,  Grid  Point  Forces,  Eigenvectors,  Element  Stresses,  and  Element 
Forces  on  User  Tape) 


II.  PURPOSE:  To  save  following  data  on  user  tape,  formatted,  or  unformatted  for  user 
external  use: 

(1)  Grid  points  -  external  numbers,  and  their  x,y,z  coordinates  in  basic  rectangular 
coordinate  system; 

(2)  Connecting  elements  -  element  names,  GPTABD  element  types,  NASTRAN  symbols,  property 
IDs  (or  material  IDs  if  elements  have  no  property  IDs),  number  of  grid  points, 
connecting  grid  (external)  numbers;  and 

(3)  Displacement  vectors*  -  real  or  complex  data  in  basic  rectangular  coordinate  system, 
or  in  NASTRAN  global  coordinate  system,  in  S0RT1  or  S0RT2  data  format,  single-case  or 
subcases,  displacement  or  mode  shape  data. 

(‘including  velocity,  acceleration  vectors,  loads,  grid  point  forces,  eigenvectors, 
element  stresses,  and  element  forces) 


DMAP  CALLING  SEQUENCE: 


DATABASE  EQEX IN , BGPDT , GE0M2 , CSTM, 0UGV//C , N , OUTTP/C , N , FORMAT/C , N , BAS  I C  S 


IV.  INPUT  DATA  BLOCKS: 

EQEXIN  -  External -internal  grid  tables.  Must  be  present. 

BGPDT  -  Basic  Grid  Point  Definition  Table. 

If  purge,  no  grid  point  data  sent  to  OUTTP  output  tape. 

If  BGPDT  is  purged,  and  OUGV  is  present,  displacement  vector  will  not  be 
converted  to  basic  coordinates. 

GE0M2  -  Geometry  2  Data  Block. 

If  purge,  no  element  connectivity  data  sent  to  OUTTP. 

CSTM  -  Coordinate  System  Transformation  Matrix  Data  Block. 

if  purge,  displacement  vectors  remain  in  global  coordinate  system. 

OUGV  -  Any  output  displacement  (velocity,  acceleration,  load,  grid  point  force, 

eigenvector,  element  stress,  and  element  force)  data  block  written  for  OFP 
module.  If  present,  the  displacement  vectors  are  processed  and  results  sent 
out  to  user  OUTTP  tape.  OUGV  must  be  one  of  the  following  files  characterized 
by  an  1,  2,  3,  7,  10,  11,  15,  or  16  on  the  2nd  word,  last  2  digits,  of  the 
first  header  record,  and  an  8  or  a  14  on  the  10th  word: 
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0UDV1, 

0UDVC1, 

0UGV1 , 

0UHV1 , 

OUHVC1,  0UPV1, 

OUPVCl, 

0UDV2, 

0UDVC2, 

0UGV2, 

0UHV2, 

0UHVC2,  0UPV2, 

0UPVC2, 

0UBGV1, 

OPHID, 

OPHIG, 

OPHIH, 

OCPHIP, 

0PG1, 

OPP1, 

OPPC1, 

OQG1, 

0QP1,  0QPC1, 

0QBG1, 

0PG2, 

0PP2, 

OPPC2, 

0QG2, 

OQP2,  0QPC2, 

OBQGl, 

0EF1, 

0EFC1, 

OES1, 

0ESC1, 

0EFB1,  0BEF1, 

0EF2, 

0EFC2, 

0ES2, 

OESC2, 

OESB1, 

0BES1 

If  purge,  no  data  are  sent  out  to  OUTTP. 


V.  OUTPUT  DATA  BLOCK:  No  GINO  output  data  block. 


VI.  PARAMETERS: 


OUTTP  -  User  output  tape.  Must  be  one  of  the  UT1,  UT2,  INPT,  INP1,  ...,  INP9  files 
tape  or  disc  file.  (Default  INP1,  FORTRAN  Unit  15) 

FORTRAN  LOGICAL 


UNIT,  OUTTP 

USER  FILE  CODE 

11 

UT1  (CDC  only) 

12 

UT2  (CDC  only) 

14 

INPT  (UN I VAC, VAX) 

15 

INP1  (All 

16 

INP2  machines 

: 

:  except 

23 

INP9  CDC) 

24 

INPT  (IBM  only) 

FORMAT  =  0,  unformatted  output  to  OUTTP  tape  (Default); 

»  1,  formatted. 

BASIC  =  0,  displacement  vectors  in  NASTRAN's  global  coordinate  system  (Default); 
=  1,  displacement  vectors  in  basic  rectangular  coordinate  system. 


VII.  EXAMPLE: 

DATABASE  EQEXIN, BGPDT, GE0M2 , ,  /C,N,15/C,N,+1  $ 
DATA8ASE  EQEXIN, BGPDT, ,CSTM,OUGV/C,N, 16  S 
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First  example  writes  the  grid  points  and  element  connectivity  data  out  to  INP1  tape, 
formatted.  The  second  example  writes  the  grid  points  and  displacement  vectors  in  NASTRAN 
global  coordinates  out  to  INP2  tape,  unformatted. 


VIII.  SUBROUTINE: 

DBASE  -  Subroutine  for  DATABASE  Module. 

IX.  METHOD: 

There  are  three  independent  sets  of  data  to  be  copied  out  to  user  tape  OUTTP  -  grids 

data,  connecting  elements  data,  and  displacement  vectors  (velocities,  accelerations, 

eigenvectors,  stresses,  and  forces).  If  BGPDT  file  is  purged  (that  is,  is  not  present), 

the  grid  point  data  set  is  not  generated.  Similarly,  if  GE0M2  file  is  purged,  the  element 

connectivity  data  is  not  generated;  and  the  same  with  the  OUGV  file  and  the  displacement 

vectors.  The  exact  contents  in  the  output  tape  OUTTP  depend  therefore  on  the  input  file 

* 

assignment. 

In  all  cases,  EQEXIN  file  is  opened  and  the  grid  point  external  number  vs.  the  internal 
number  table  is  read.  If  BGPDT  file  is  present,  the  basic  grid  point  data  is  read,  and 
each  internal  grid  point  number  is  converted  to  its  external  ID  number.  The  grid  point's 
x,  y,  z  coordinates  from  BGPDT  are  already  in  the  basic  rectangular  coordinate  system. 

The  grid  points  data  are  then  sorted  by  their  external  grid  IDs  before  they  are  written 
out  to  OUTTP  tape,  under  FORTRAN  control.  The  following  table  gives  the  precise  contents 
of  each  record  in  the  OUTTP  tape. 


For  UNFORMATTED  tape  -  grid  point  data  in  one  long  record: 


RECORD  WORD  CONTENT  (UNFORMATTED) 


1 

2 


1-2  'GRID  PTS . ',  a  16-letter  identification.  (BCD) 

1  No.  of  words  (this  first  word  not  included)  in  this 
record.  (Integer) 

2  External  grid  ID.  (Sorted,  integer) 

3  0  (Not  used;  reserved  for  future  use) 

4,5,6  x,y,z  coordinates  in  basic  rect.  coord,  system. 

(single  precision  real) 

:  Repeat  words  2  thru  6  as  many  times  as  there  are  grids 


(Total  number  of  grid  points  =  (WORD  1  of  record  2)/5) 
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To  read  the  second  record  into  array  XYZ,  one  can  use 
READ  (OUTTP)  L,  (XYZ(J)  „M,L) 


For  FORMATTED  tape  -  grid  point  data  in  multiple  short  records: 


RECORD 

WORD 

CONTENT 

FORMAT 

1 

1,2 

'GRID  PTS . '  identification 

4A4 

2 

1  . 

Total  number  of  grid  points 

18 

3 

1 

External  grid  ID  (Sorted) 

18 

2 

0  (Not  used;  Reserved  for  future  use) 

18 

3,4,5 

x,y,z  coordinates  in  basic  rect. 

3E12.6 

coordinate  system. 

l 

1-5 

Repeat  record  3  as  many  times  as  there 

are  grids 


If  GE0M2  file  is  present,  the  elements  data  will  be  generated  next.  An  element 
identification  record  is  written  out  first. 


RECORD 

WORD 

CONTENT  (FORMATTED  or  UNFORMATTED) 

FORMAT 

1 

1-2 

'ELEMENTS . ',  identification.  BCD 

4A4 

The  element  data  in  GE0M2  file  will  be  written  out  to  the  OUTTP  file  almost  in  the  same 
way,  and  same  order  as  the  original  data.  A  header  record  is  written  out  for  each  type  of 
element,  then  followed  by  the  element  data.  The  element  data  will  be  written  out  in  a 
long  record  if  the  OUTTP  is  unformatted,  and  in  multiple  short  records,  one  for  each 
element,  if  OUTTP  is  formatted.  Notice  that  the  element  types  are  sorted  according  to  the 
NASTRAN'S  GPTABD  data  block  order;  and  within  each  type,  the  elements  are  sorted  by  their 
element  IDs. 
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ELEMENT  HEADER  RECORD  for  the  UNFORMATTED  output  tape: 


RECORD  WORD 

CONTENT  (UNFORMATTED) 

2  1-2 

Element  name.  (BCD) 

3 

Element  type  number,  according  to  GPTABD  order. 
(Integer) 

4 

Element  symbol.  (2  letters) 

5 

Number  of  grid  points  per  element.  (Integer) 

6 

Total  no.  of  elements  of  this  current  element  type. 
(Integer) 

7 

No.  of  words  in  next  record  =  W0RD5  +  2  (Integer) 

8 

No.  of  132-column  lines  needed  in  next  record  if  OUTTP 

is  written  with  a  format.  (Integer) 

ELEMENT  RECORDS,  Repeat  as  many  times  as  there  are  elements  not  of  the  same  type  (that  is 
a  record  for  each  element  type): 

RECORD  WORD  CONTENT  (UNFORMATTED) 


3 


1  Element  ID.  (Integer) 

2  Property  ID.  (Positive  Integer);  or 

0  (Element  has  no  property  ID  nor  material  ID);  or 
Material  ID.  (Element  has  no  property  ID,  but  it  has  a 
material  ID.  (Negative  Integer) 

3  0  (Not  used;  Reserve  for  future  use,  integer) 

4,5,...  Element  connecting  (external)  grid  points.  (Integers) 

:  Repeat  words  1,2, 3, 4...  as  many  times  as  there  are 

elements  of  this  same  tape. 

(See  WORD  6  in  header  record) 
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For  FORMATTED  tape  - 

ELEMENT  HEADER  RECORD,  in  8-column  format: 

RECORD  COLUMNS  CONTENT  FORMAT 


2 


1-  8 

'ELEMENT  ' 

8 

letters 

9-16 

Element  name 

2A4 

17-24 

'  TYPE  «' 

8 

letters 

25-28 

Elem.  type  no.  according  to  GPTABD 

14 

29,30 

Blank 

2X 

31-32 

Element  symbol 

A2 

33-40 

'  GRIDS  =' 

8 

letters 

41-48 

No.  of  grids  per  element 

18 

49-56 

'  TOTAL 

8 

letters 

57-64 

Total  no.  of  elements  of  this  elem.  type 

18 

65-72 

'  WDS/EL=' 

8 

letters 

73-80 

No.  of  words  per  element  in  next  records 

18 

81-88 

'  LINES 

8 

letters 

89-96 

No.  of  lines  (records)  needed  on  next 

18 

record  for  this  element  type 

A  printout  of  this  header  record  may  look  like  this: 

(the  ---+++  line  is  for  video  aid;  it  is  not  part  of  the  record) 


++++++++ . ++++++++ . ++++++++ . ++++++++-- 

TYPE  -  34  BR  GRIDS  =  2  TOTAL  = 


ELEMENT  CBAR 
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ELEMENT  RECORDS  (FORMATTED)  - 

There  should  be  (TOTAL  X  LINES)  records  in  each  element  type: 

RECORD  WORD  CONTENT  FORMAT 


3  1  Element  ID.  18 

2  Property  ID.  (Positive  integer);  or  18 

0  (Element  has  no  property  nor  material  ID);  or 
Material  ID.  (Element  has  no  property  ID, 


but  it  has  a  material  ID) 

3  0  (Not  used;  reserve  for  future  use)  18 

4-16  First  13  external  connecting  grid  points  1318 

4  (IF  NEEDED,  and  LINES  in  header  record  =  2) 

1-15  Next  15  Grid  points  8X.15I8 

5  (IF  NEEDED,  and  LINES  in  header  record  =  3) 

1-15  More  grid  points  8X.15I8 


:  :  Repeat  element  record  3  (and  possible  4  and  5) 

as  many  times  as  there  are  elements  of  the  same 
type. 

Repeat  the  header  record  and  the  element  records  as  many  times  as  there  are  different 
types  of  elements. 

The  end  of  element  data  records  is  signaled  by  an  element  ENDING  record  of  the  following 
form,  8  words: 

Words  1  and  2  form  the  word  '  -END-', 

Word  4  holds  the  symbol 
and  all  other  words  are  zeros 

The  ENDING  ELEMENT  RECORD  of  the  FORMATTED  tape  looks  like  tht'i 

. ++++++++ . ++++++++ . ++++++++ . ++++-*  • 

'ELEMENT  -END-  TYPE  -  0  --GRIDS-  0  TOTAL  -  date.' 

If  the  OUGV  file  is  present,  the  displacement  vectors  will  be  processed  and  ihi  •  .w 
results  sent  out  to  the  OUTTP  tape.  (In  this  and  the  next  few  paragraphs,  the  word 
"displacement"  implies  also  velocity,  acceleration,  load,  grid  point  force,  eigenvector, 
element  stresses,  and  element  forces.)  The  input  OUGV  file  must  be  one  of  the  GINO  files 
described  in  the  INPUT  DATA  BLOCKS  section,  which  gives  the  displacements  in  the  g-set  or 
p-set,  or  the  other  data  types.  The  output  data  are  sorted  by  their  external  grid  ID 
numbers.  The  displacement  records  in  OUTTP  also  begin  with  an  identification  record: 
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RECORD  WORD  CONTENT  (FORMATTED  or  UNFORMATTED)  FORMAT 


1  1-2  'DISPLCNT . '  identification*.  BCD  4A4 

(*  or  'VELOCITY . 

'ACCELERN . 

'LOADINGS . ', 

'G  FORCES . ', 

'EIGENVCR . ', 

'E  STRESS . ', 

'E  FORCES . ") 


The  original  displacement  data  in  NASTRAN  are  always  in  the  global  coordinate  system.  If 
the  parameter  BASIC  is  zero  (default),  the  displacement  vectors  will  be  passed  over  to 
OUTTP  without  changes.  However,  if  the  parameter  is  set  to  +1,  the  displacement  vectors 
will  be  converted  to  the  basic  rectangular  coordinate  system.  In  this  latter  case,  the 
coordinate  transformation  matrices  from  CSTM  will  be  brought  into  the  computer,  the  grid 
point  coordinate  CID  will  be  identified,  and  proper  coordinate  transformation  will  be 
applied  to  the  displacements  of  each  grid  point.  Again,  the  output  OUTTP  tape  can  be 
formatted  or  unformatted.  In  the  unformatted  tape,  each  grid  point  and  its  displacement 
values  will  form  one  logical  record  of  8  or  14  words  (variable  word  length  if  element 
stresses  or  element  forces).  In  the  formatted  tape,  one  logical  record  (8  words)  is  used 
if  the  displacement  data  is  real,  and  an  additional  record  (for  data  words  9  through  14) 
if  the  data  is  complex.  In  either  case,  a  formatted  record  has  128-column  of  words. 
Similarly  to  the  grid  and  element  sets  of  data,  a  HEADER  record  is  written  out  to  OUTTP 
first  before  the  grid  point  displacement  vectors. 


DISPLACEMENT  HEADER  RECORD  for  UNFORMATTED  TAPE  - 


RECORD  WORD  CONTENT  (UNFORMATTED) 


2  1 
2 
3 

4-5 

6-7 

8-13 

14-45 

46-77 

78-109 


Subcase  or  mode  number.  (Integer) 

Zero  or  frequency.  (Real) 

Number  of  words  per  entry  in  next  record. 
Original  data  file  name,  2  BCD  words 
'  GLOBAL  '  if  BASIC=0,  2  BCD  words 
'  BASIC  '  if  BASICS 
CODE  (See  note  below;  6  integers) 

Title,  32  BCD  words 
Subtitle,  32  BCD  words 
Label,  32  BCD  words 
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Note  -  Each  code  word  holds  8  digits.  Therefore  there  are  48  digits,  from  C0DE(1) 
through  C0DE(6),  and  from  left  to  right,  they  describe  the  data  type  of  the 
next  displacement  record: 

1  for  integer 

2  for  real,  and 

3  for  BCD 

The  first  digit  points  to  the  first  data  word;  2nd,  3rd,  4th,  etc.  point  to 
2nd,  3rd,  4th  data  words,  etc. 


DISPLACEMENT  RECORDS  in  UNFORMATTED  tape  -  in  one  long  record: 
RECORD  WORD  CONTENT  (UNFORMATTED) 


3  1  No.  of  words  (excluding  this  first  word)  in  this 

record.  (Integer) 

2  External  grid  point  number.  (Integer) 

3  Point  type  (l=grid  pt.  2«scalar  pt. 

3=extra  pt.  4-modal  pt.,  integer) 

4-9  Displacements.  (Real  parts, 

tl,t2,t3,rl,r2,r3,  single  precision  real) 

10-15  (COMPLEX  data  only) 

Displacements.  (Imaginary  parts, 
tl,t2,t3,rl,r2,r3,  single  precision  real) 

:  Repeat  words  2  thru  9  (or  15)  as  many  times  as 

there  are  grid  points  in  OUGV  file 
:  :  Repeat  record  3  as  many  times  as  there  are 

subcases  or  frequencies 
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DISPLACEMENT  HEADER  RECORD  for  FORMATTED  tape  - 

RECORD  WORD  CONTENT  (FORMATTED) 

FORMAT 

2 

1-2 

'  CASE  -  '  or  '  MODE  -  ' 

8  letters 

3 

Subcase  number 

18 

4 

Zero  or  frequency 

1PE12.5 

5-6 

'  WORDS 

8  letters 

7 

NWDS,  number  of  words  per  entry  in  next  18 

record  (=8  for  REAL  data,  or  «14  COMPLEX, 
for  all  displacement  records) 

8-9 

'  INPUT  «' 

8  letters 

10-11 

Original  GINO  file  name 

2A4 

12-13 

'  COORD  =' 

8  letters 

14-15 

'  BASIC  '  or  'GLOBAL  ' 

2A4 

16-17 

'  CODE  =' 

8  letters 

18-22 

Format  code  518 

8  digits  per  word,  1  for  INTEGER 

2  for  REAL 

Ex.  13222200  3  for  BCD 

0  not  applicable 

23 

NA4,  number  of  words  per  entry  in 
record,  in  A4-word  count 

next  18 

3 

1-32 

Title,  32  BCD  words 

32A4 

4 

33-64 

Subtitle,  32  BCD  words 

32A4 

5 

65-96 

Label ,  32  BCD  words 

32A4 

DISPLACEMENT  RECORDS  in  FORMATTED  tape  -  in  multiple  short  records: 


RECORD  WORD  CONTENT  FORMAT 


6  1  External  grid  point  number.  (Integer)  18 

2  Point  type  (l=grid  pt.  2=scalar  pt.  18 

3=extra  pt.  4=modal  pt.,  integer) 

3-8  Displacements.  (Real  parts,  6E12.6 

tl,t2,t3,rl,r2,r3,  single  precision  real) 

7  (COMPLEX  DATA  only) 

1-6  Displacements  (Imaginary  parts,  16X, 6E12 .6 


tl,t2,t3,rl,r2,r3,  single  precision  real) 

Repeat  record  6  (records  6  and  7  if  complex  data) 
as  many  times  as  there  are  grid  points 
displ acement 
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At  the  end  of  each  subcase,  if  the  output  tape  OUTTP  is  formatted,  a  ZERO  record  (two 
records  if  data  is  complex)  is  written  out  to  OUTTP  tape.  This  ZERO  record  has  the  same 
format  as  a  DISPLACEMENT  record,  and  consists  of  8  or  14  zeros  (first  two  are  integers, 
minus  zeros).  This  ZERO  record  is  not  needed  in  the  unformatted  OUTTP  output  tape. 

Repeat  the  HEADER  record,  the  DISPLACEMENT  records,  and  the  ZERO  record  (formatted  OUTTP 
tape  only)  as  many  times  as  there  are  subcases.  At  the  end  of  the  last  subcase,  or  end  of 
the  input  file  OUGV,  an  ENDING  record  is  written  out.  It  has  the  same  form  as  the  HEADER 
record: 

DISPLACEMENT  ENDING  RECORD  - 


RECORD 

WORD 

CONTENT  (UNFORMATTED) 

LAST 

1 

Zero.  (Integer) 

2 

Zero.  (Real) 

3 

Zero.  (Integer) 

4-5 

'  -END-'.  (BCD) 

6-101 

96  Blank  words.  (BCD) 

RECORD 

WORD 

CONTENT  (FORMATTED) 

FORMA 1 

LAST 

1-2 

'  CASE  -  '  or  '  MODE  -  ' 

8-LEf/ERS 

3 

Minus  0  (Integer) 

18 

4 

Zero 

iPE12.5 

5-6 

'  WORDS  «' 

8-LETTERS 

7 

Minus  0  (Integer) 

18 

8-11 

'  INPUT  -  -END-  ' 

16-LETTERS 

12-17 

Blanks 

4A4 

LAST+1 

1-32 

Blanks 

32A4 

LAST+2 

1-32 

BLANKS 

32A4 

LAST+3 

1-32 

Blanks 

32A4 

If  OUGV  is  an  element  stress  or  an  element  force  file,  the  stress  or  force  data  have 
variable  length  depending  on  the  type  of  element.  The  stress  or  force  records  written  to 
the  OUTTAP  tape  are  therefore  different  from  those  of  the  displacement  records. 
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THE  ELEMENT  STRESS  or  FORCE  RECORD  HAS  the  following  forms: 
RECORD  WORD  CONTENT  (UNFORMATTED) 


3  1  Number  of  words,  excluding  this  first  word, 

in  this  record.  (Integer) 

2-NWDS  Element  ID,  stress  or  force  data 

(Variable  data  types  are  described  in  'CODE') 

:  Repeat  (2-NWDS)  words  as  many  times  as  there 

are  elements. 

:  :  Repeat  record  3  as  many  times  as  there  are  subcases. 

where  NWDS  is  the  number  of  computer  words  par  entry,  and  CODE  is  the  6-word  format 
code,  as  described  in  header  record. 


or 


RECORD  WORD  CONTENT  (FORMATTED)  FORMAT 


6  1-NA4  Element  ID,  stress  or  force  data  33A4 

(The  data  types  are  described  in 
'CODE';  all  integers  in  2A4,  real 
numbers  in  3A4,  and  BCD  in  A4) 

:  ;  (Maxima  record  length  is  132  columns  (33A4); 

continuation  into  next  record(s)  if  necessary) 

:  :  Repeat  above  >-Q.cord(s)  as  many  times  as  there 

are  elements 

where  NA4  is  the  number  of  words  per  tntry  in  A4-word  count,  and  CODE  is  5-word 
fo-mat  code 

Notice  shat  the  DATABASE  modu’e  does  not  copy  out  the  external -internal  grid  points  table 
in  LtJEXIN  file,  nor  the  coordinate  tranr.  format  ion  matrices  in  CSTM.  The  coordinate 
systems  originally  associated  witu  the  external  grid  points  are  never  mentioned  in  the 
OUTTP  tape. 

If  the  veer  must  cooy  the  EQEXh,  and  CSTM  files  (both  are  in  table  forms),  the  new 
OUTPUT5  can  be  used. 


X.  DESIGN  REQUIREMENT: 

The  DATABASE  module  is  mapped  in  NASTRAN  Links  2,  »  and  14.  This  module  is  accessible 
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only  through  a  NASTRAN  DMAP  Alter. 

Minimum  open  core  requirement  «  10  x  (total  number  of  grid  points)  words. 

The  formatted  outputs  are  flagged  only  by  the  parameter  FORMAT.  The  formatted  output 
records  are  designed  not  to  exceed  132  columns  in  length  and  include  printer  carriage 
control.  In  most  cases,  18-formats  are  used  for  integers  and  E12.6  for  real  data  (no 
double  precision  words  used);  and  BCD  words  are  in  multiples  of  2A4.  The  entire  OUTTP 
file  can  be  printed,  or  it  can  be  edited  by  a  system  editor.  The  formatted  OUTTP  file,  if 
written  on  magnetic  tape  by  a  computer,  can  be  used  in  another  computer  of  a  different 
manufacturer. 

The  unformatted  OUTTP  file  is  more  efficient;  and  the  integer  and  real  data  are  more 
accurate.  The  grid  point  data  and  data  of  each  connecting  element  type  are  written  out 
unformatted  in  long  records;  that  requires  large  working  space  in  the  computer  system.  On 
the  other  hand,  only  short  records  are  written  to  the  formatted  OUTTP  file,  and  the 
working  space  requirement  is  less  critical. 

XI.  REMARKS: 

1.  Conversion  of  element  stresses  or  forces  to  the  basic  coordinates  is  not  allowed. 

XII.  DIAGNOSTIC  MESSAGES: 

Message  numbers  3001,  3002,  f.nd  3008  may  be  issued  by  DATABASE. 
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(A)  A  NASTRAN  EXAMPLE  USING  DATABASE  MODULE 
(OUTPUT  LISTING  SHORTENED) 


NASTRAN  TITLEOPT=-1,  F!LES=INP1 

**** 

★  * 

*  it 

*  NASTRAK 

*  * 

*  * 

it  it  it  it 

DEC  VAX  COMPUTER  SYSTEMS  SYSTEM  RELEASE  -  1989  ED. 

FTN  VERSION  -  50K 


DISTRIBUTED  BY 

COMPUTER  SOFTWARE  MANAGEMENT  AND  INFORMATION  CENTER  (COSMIC) 
UNIVERSITY  OF  GEORGIA 
ATHENS,  GEORGIA  30602 
PHONE  (404)  542-3265 


NASTRAN  EXECUTIVE  CONTROL  DECK  ECHO 

ID  TEST,  VAX  MACHINE 

SOL  1,0 

APP  DISP 

ALTER  106 

DATABASE  EQEXIN,BGPDT,GEOM2,CSTM,OUGV1  //C,N,15/C,N,+1/C,N,+1  $ 

ENDALTER 
TIME  10 
CEND 


CARD 

COUNT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


CASE  CONTROL  DECK  ECHO 


TITLE  =  TESTING  DATABASE  MODULE 
SUBTITLE  =  USING  CYLINDRICAL  COORDINATES 

LABEL  =  GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INP1,  FORMATTED 

SPC  =  10 

DISP  =  ALL 

OLOAD  =  ALL 

ECHO  =  BOTH 

SUBCASE  123 

LOAD  =  1000 

SUBCASE  456 
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11 

12 


LOAD  =  2000 
BEGIN  BULK 


INPUT  BULK  DATA  DECK  ECHO 

—  1 —  +++2+++  — 3 —  +++4+++  — 5 —  +++6+++  ...7...  +++8+++  ...9 —  .(++']0+++ 

-FF-  CORD1C,  3  101  333  999 

-FF-  GRID, 101,,  10.  0.  0.,0,  123456 

-FF-  GRID, 111,,  20.  0.  0.,0,  123456 

-FF-  GRID, 222,,  30.  0.  0.,0,  123456 

-FF-  GRID, 333,,  40.  0.  0.,0,  123456 

-FF-  GRID, 555,,  20.  0.  -9. +9,0,  123456 

-FF-  GRID, 999,,  10.  10.  10. ,0,  123456 

-FF-  GRDSET,  7)3 

-FF-  GRID,  1,  3,  5.  0.  0. 

-FF-  =(6),*(1),  =,  =,  *(15.),  == 

-FF-  GRID,  11,  3,  5.,  0.,  10. 

-FF-  =(6),*(1),  =,  =,  *(15.),  == 

-FF-  GRID,  21,  3,  5.,  0.,  20. 

-FF-  =(6),*(1),  =,  =,  *(15.),  == 

-FF-  GRID,  32,  3,  5.,  15.,  30. 

-FF-  =(4),*(1),  =,  =,  *(15.),  == 

-FF-  GRID,  31,  0,  40.  3.53553  3.53553  0 

-FF-  GRID,  37,  0,  40.  -3.53553  3.53553  0 

$ 

-FF-  CBAR,  1,2,  1  2,  101 

-FF-  =(5),*(1),=,  *(1>,/,= 

-FF-  CBAR,  11,2,  11  12,  111 

-FF-  =(5),*(1 ),=,  *(1),/,= 

-FF-  CBAR,  21,2,  21  22,  222 

-FF-  =(5),*(1),=,  *(1),/,= 

-FF-  CBAR,  31,2,  31  32,  333 

-FF-  =(5),*(1),=,  *<1),/,= 

-FF-  CBAR,  41,2,  1  11,  555 

-FF-  =(2),*<1 ),=,  *(10),/,= 

-FF-  CBAR,  51,2,  7  17,  555 

-FF-  =(2),*(1),=,  *(10),/,= 

$ 

-FF-  CQUAD2,71 ,  7,  1  11  12  2 

-FF-  =(5),*(1 ),  =,*(1),/// 

-FF-  COUAD2.81,  7,  11  21  22  12 

-FF-  =(5),*(1 ),  =,*(1),/// 

-FF-  CQUAD2.91,  7,  21  31  32  22 

-FF-  =(5),*(1 ),  =,*(1),/// 

% 

-FF-  PBAR,  2,100,  .4  .5  .3  .3 

-FF-  PQUAD2.7, 100,  .05 

-FF-  NAT1 , 100  3.0E+7, ,  .3  1.0 

-FF-  SPC1, 10,123456,  1  THRU  7 

-FF-  FORCE, 1000,31,0,100.0,  0.0,  0.,  -1.0 

-FF-  FORCE, 1000, 37, 0,100.0,  0.0,  0.,  -1.0 

-FF-  FORCE, 2000,34, 3, 200.0,  -1.0,  0.  0.0 

ENDDATA 

TOTAL  COUNT=  46 
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SORTED  BULK  D  A  .  6  ECHO 


CARD 

COUNT 

— 1--- 

+++2+++ 

---3--- 

+++4+++ 

— 5— 

+++6+++ 

— 7 —  +++8+++  ---9 —  +++10+++ 

1- 

CBAR 

1 

2 

1 

2 

101 

2- 

CBAR 

2 

2 

2 

3 

101 

5- 

CBAR 

5 

2 

5 

6 

101 

6- 

CBAR 

6 

2 

6 

7 

101 

7- 

CBAR 

11 

2 

11 

12 

111 

8- 

CBAR 

12 

2 

12 

13 

111 

9- 

CBAR 

13 

2 

13 

14 

111 

17- 

CBAR 

25 

2 

25 

26 

222 

18- 

CBAR 

26 

2 

26 

27 

222 

19- 

CBAR 

31 

2 

31 

32 

333 

20- 

CBAR  • 

32 

2 

32 

33 

333 

24- 

CBAR 

36 

2 

36 

37 

333 

25- 

CBAR 

41 

2 

1 

11 

555 

26- 

CBAR 

42 

2 

11 

21 

555 

27- 

CBAR 

43 

2 

21 

31 

555 

28- 

CBAR 

51 

2 

7 

17 

555 

29- 

CBAR 

52 

2 

17 

27 

555 

30- 

CBAR 

53 

2 

27 

37 

555 

31- 

CORD 1C 

3 

101 

333 

999 

32- 

CQUAD2 

71 

7 

1 

11 

12 

2 

33- 

CQUAD2 

72 

7 

2 

12 

13 

3 

37- 

CQUAD2 

76 

7 

6 

16 

17 

7 

38- 

CQUAD2 

81 

7 

11 

21 

22 

12 

39- 

COUAD2 

82 

7 

12 

22 

23 

13 

43- 

CQUAD2 

86 

7 

16 

26 

27 

17 

44- 

CQUAD2 

91 

7 

21 

31 

32 

22 

45- 

CQUAD2 

92 

7 

22 

32 

33 

23 

48- 

CQUAD2 

95 

7 

25 

35 

36 

26 

49- 

COUAD2 

96 

7 

26 

36 

37 

27 

50- 

FORCE 

1000 

31 

0 

100.0 

0.0 

0.  -1.0 

51- 

FORCE 

1000 

37 

0 

100.0 

0.0 

0.  -1.0 

52- 

FORCE 

2000 

34 

3 

200.0 

-1.0 

0.  0.0 

53- 

GRDSET 

3 

54- 

GRID 

1 

3 

5. 

0. 

0. 

55- 

GRID 

2 

3 

5. 

15. 

0. 

56- 

GRID 

3 

3 

5. 

30. 

0. 

57- 

GRID 

4 

3 

5. 

45. 

0. 

58- 

GRID 

5 

3 

5. 

60. 

0. 

59- 

GRID 

6 

3 

5. 

75. 

0. 

60- 

GRID 

7 

3 

5. 

90. 

0. 

61- 

GRID 

11 

3 

5. 

0. 

10. 

62- 

GRID 

12 

3 

5. 

15. 

10. 

63- 

GRID 

13 

3 

5. 

30. 

10. 

73- 

GRID 

26 

3 

5. 

75. 

20. 

74- 

GRID 

27 

3 

5. 

90. 

20. 
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75- 

GRID 

31 

0 

40. 

3.53553  3.53553  0 

76- 

GRID 

32 

3 

5. 

15. 

30. 

77- 

GRID 

33 

3 

5. 

30. 

30. 

78- 

GRID 

34 

3 

5. 

45. 

30. 

79- 

GRID 

35 

3 

5. 

60. 

30. 

80- 

GRID 

36 

3 

5. 

75. 

30. 

84 

GRID 

37 

0 

40. 

-3.535533.53553  0 

82- 

GRID 

101 

10. 

0. 

0. 

0 

123456 

83- 

GRID 

111 

20. 

0. 

0. 

0 

123456 

84- 

GRID 

222 

30. 

0. 

0. 

0 

123456 

87- 

GRID 

999 

10. 

10. 

10. 

0 

123456 

88- 

MAT1 

100 

3.0E+7 

.3 

1.0 

89- 

PBAR 

2 

100 

.4 

.5 

.3 

.3 

90- 

PQUAD2 

7 

100 

.05 

91- 

SPC1 

10 

123456 

1 

THRU 

7 

ENDDATA 

***  USER  INFORMATION  MESSAGES  FROM  RESEQUENCING  PROCESSOR  -  BANDIT  (CRI=  1,  MTH=  3,  MPC=  0,  DEP=-1,  PCH 

BEFORE  RESEQUENCING  -  -  - 

BANDWIDTH  9 


AFTER  RESEQUENCING  BY  GIBBS-POOLE-STOCKMEYER  (GPS)  ALGORITHM  -  •  - 
BANDWIDTH  6 

RMS  WAVEFRONT  5.335 


***  BANDIT  SUMMARY  *** 


BEFORE 

AFTER 

BANDWIDTH  (B) 

9 

6 

PROFILE  <P) 

199 

145 

MAXIMUM  WAVEFRONT  (C-MAX) 

9 

6 

AVERAGE  WAVEFRONT  (C-AVG) 

7.107 

5.179 

RMS  WAVEFRONT  (C-RMS) 

7.500 

5.335 

NUMBER  OF  GRID  POINTS  (N) 

34 

NUMBER  OF  ELEMENTS  (NON-RIGID) 

48 

NUMBER  OF  RIGID  ELEMENTS  PROCESSED* 

0 

CRITERION* 

RMS 

WAVEFRONT 

METHOD  USED* 

GPS 

NO.  OF  NON-ACTIVE  GRID  POINTS 

6 

NO.  OF  SEQGP  CARDS  GENERATED 

9 

SYSTEM  GENERATED  SEQGP  CARDS 

SEQGP  1  1  2  5  3  9  4  13 

SEQGP  5  17  6  21  7  25  11  2 
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SEQGP  101  29  111  30  222  31  333  32 

SEQGP  555  33  999  34 

**NO  ERRORS  FOUND  -  EXECUTE  NASTRAN  PROGRAM** 


***  USER  INFORMATION  MESSAGE  3035 

FOR  SUBCASE  NUMBER  1,  EPSILON  SUB  E  =  8.3046791E-13 
***  USER  INFORMATION  MESSAGE  3035 

FOR  SUBCASE  NUMBER  2,  EPSILON  SUB  E  =  -2.6844558E-13 


***  USER  INFORMATION  MESSAGE  - 

DATABASE  MODULE  TRANSFERRED  THE  FOLLOWING  3  SETS  OF  DATA  TO  OUTPUT  FILE  INP1  (FORTRAN  UNIT  15),  FORMATTED 

1.  GRID  POINT  DATA  -  EXTERNAL  NUMBERS  AND  BASIC  RECTANGULAR  COORDINATES 

2.  ELEMENT  CONNECTIVITY  DATA  -  ALL  GRIDS  POINTS  ARE  EXTERNAL  NUMBERS 

3.  DISPLCNT  DATA  FROM  INPUT  FILE  OUGV1  ,  DATA  CONVERTED  TO  BASIC  RECY.  COORDINATES,  2  SUBCASES 


TESTING  DATABASE  MODULE 
USING  CYLINDRICAL  COORDINATES 

GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INP1,  FORMATTED 


JANUARY  19,  1989  RELEASE  1989  VAX 

SUBCASE  123 


DISPLACEMENT  VECTOR 


POINT  ID. 

TYPE 

T1 

T2 

T3 

R1 

R2 

R3 

1 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

7 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

11 

G 

-3.318057E-03 

-3.292276E-03 

-2.601234E-04 

5.895234E-04 

-6.161431E-04 

4.702619E-06 

12 

G 

-4.063191E-03 

-2.321371E-03 

3.838165E-04 

3.955249E-04 

-7.332436E-04 

4.287300E-06 

13 

G 

-4.531379E-03 

-1.199775E-03 

7.735121E-04 

1.998269E-04 

-7.991001E-04 

2.540319E-06 

17 

G 

-3.318057E-03 

3.292276E-03 

-2.601235E-04 

-5.895234E-04 

-6.161430E-04 

-4.702721E-06 

21 

G 

-1.13S364E-02 

-1.133029E-02 

-4.189800E-04 

9.427494E-04 

-9.638459E-04 

-2.057090E-06 

22 

G 

-1.389689E-02 

-8.006683E-03 

6.217674E-04 

6.450522E-04 

-1.161740E-03 

-1.690856E-06 

36 

G 

-2.659377E-02 

1.533314E-02 

7.031241E-04 

-7.324436E-04 

-1.305977E-03 

1.251280E-05 

37 

G 

-4.714102E-04 

2.952591E-05 

-3.071 109E- 02 

1.414761E-05 

1.510598E-03 

1.724372E-05 

101 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

111 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

999 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 
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TESTING  DATABASE  MODULE 
USING  CYLINDRICAL  COORDINATES 

GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INP1,  FORMATTED 


JANUARY  19,  1989  RELEASE  1989  VAX 

SUBCASE  456 


DISPLACEMENT  VECTOR 


POINT  ID. 

TYPE 

T1 

T2 

T3 

R1 

R2 

R3 

1 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

7 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

11 

G 

-3.318148E-03 

-3.292200E-03 

-2.601124E-04 

5.894569E-04 

-6.161953E-04 

4. 774461 E- 06 

12 

G 

-4.0632WE-03 

-2.321291E-03 

3.838149E-04 

3.955561E-04 

-7.332786E-04 

4.285285E-06 

16 

G 

-4.063299E-03 

2.321291E-03 

3.838153E-04 

-3.955560E-04 

-7.332786E-04 

-4.285384E-06 

17 

G 

-3.318147E-03 

3.292200E-03 

-2.60112SE-04 

-5.894569E-04 

-6.161953E-04 

-4.774563E-06 

21 

G 

-1.134697E-02 

-1.132912E-02 

-4.194220E-04 

9.431769E-04 

-9.614227E-04 

1.676048E-06 

22 

G 

-1.389428E-02 

-8.006698E-03 

6.221989E-04 

6.458150E-04 

-1.160364E-03 

9.538337E-07 

27 

G 

-1.134696E-02 

1. 13291 2E-02 

-4 . 194221E-04 

-9.431769E-04 

-9.614226E-04 

-1.676340E-06 

31 

G 

-4.712943E-04 

1.271940E-05 

-3.068326E-02 

2.592916E-05 

1.508337E-03 

-1 .354597E-05 

37 

G 

-4.712941E-04 

- 1 . 271908E-05 

-3.068326E-02 

-2.592964E-05 

1.508337E-03 

1.354600E-05 

101 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

555 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

999 

G 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

TESTING  DATABASE  MODULE 
USING  CYLINDRICAL  COORDINATES 

GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INP1,  FORMATTED 


JANUARY  19,  1989  RELEASE  1989  VAX 

SUBCASE  123 


LOAD  VECTOR 


POINT  ID. 

TYPE 

T1 

T2 

T3 

R1 

R2 

R3 

31 

G 

0.0 

0.0 

-1.000000E+02 

0.0 

0.0 

0.0 

37 

G 

0.0 

0.0 

-1.000000E+02 

0.0 

0.0 

0.0 

TESTING  DATABASE  MODULE 

JANUARY  19,  1989 

RELEASE  1989 

VAX 

USING  CYLINDRICAL  COORDINATES 

GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INP1,  FORMATTED 

SUBCASE 

456 

LOAD  VECTOR 


POINT  ID.  TYPE  T1  T2 

34  G  -2.000000E+02  0.0 


T3 


0.0 


R1 


0.0 


R2 


0.0 


R3 


0.0 


*  *  *  END  OF  JOB  *  *  * 
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(B)  FORMATTED  INP1  FILE  AS  GENERATED  FROM  ABOVE  NASTRAN  RUN 

(LISTING  SHORTENED) 


GRID  PTS . 

34=  TOTAL  NUMBER  OF  GRID  POINTS 

1  0  I.OOOOOE+OI  3.53553E+00  3.53553E+00 

2  0  I.OOOOOE+OI  2.50000E+00  4.33013E+00 

3  0  I.OOOOOE+OI  1.29410E+00  4.82963E+00 

4  0  I.OOOOOE+OI  O.OOOOOE+OO  5.00000E+00 

5  0  I.OOOOOE+OI -1.29410E+00  4.82963E+00 

6  0  I.OOOOOE+OI -2.50000E+00  4.33013E+00 

7  0  I.OOOOOE+OI -3.53553E+00  3.53553E+00 

11  0  2.00000E+01  3.53553E+00  3.53553E+00 

12  0  2.00000E+01  2.50000E+00  4.33013E+00 


26  0  3 . OOOOOE+OI -2 .50000E+00  4.33013E+00 

27  0  3.00000E+01-3.53553E+00  3.53553E+00 

31  0  4.00000E+01  3.53553E+00  3.53553E+00 

32  0  4.00000E+01  2.50000E+00  4.33013E+00 

37  0  4.00000E+01-3.53553E+00  3.53553E+00 

101  0  I.OOOOOE+OI  O.OOOOOE+OO  O.OOOOOE+OO 

111  0  2.00000E+01  O.OOOOOE+OO  O.OOOOOE+OO 


555  0  2.00000E+01  O.O0000E+00-9.00000E+09 


999 

0 

I.OOOOOE+OI 

I.OOOOOE+OI 

I.OOOOOE+OI 

ELEMENTS . 

-• 

ELEMENT  BAR 

TYPE  = 

34 

BR 

GRIDS  = 

2  TOTAL 

= 

1 

2 

0 

1 

2 

2 

2 

0 

2 

3 

3 

2 

0 

3 

4 

4 

2 

0 

4 

5 

5 

2 

0 

5 

6 

6 

2 

0 

6 

7 

11 

2 

0 

11 

12 

12 

2 

0 

12 

13 

25 

2 

0 

25 

26 

26 

2 

0 

26 

27 

31 

2 

0 

31 

32 

32 

2 

0 

32 

33 

36 

2 

0 

36 

37 

41 

2 

0 

1 

11 

42 

2 

0 

11 

21 

53 

2 

0 

27 

37 

ELEMENT  QUAD 2 

TYPE  = 

18 

Q2 

GRIDS  = 

4  TOTAL 

= 

71 

7 

0 

1 

11 

12 

2 

a 

7 

0 

2 

12 

13 

3 

73 

7 

0 

3 

13 

14 

4 

74 

7 

0 

4 

14 

15 

5 

75 

7 

0 

5 

15 

16 

6 

76 

7 

0 

6 

16 

17 

7 

81 

7 

0 

11 

21 

22 

12 

30  UOS/EL= 


18  WDS/EL= 


5  LINES  =  1 


7  LINES  =  1 
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82 

7  0 

12 

22 

23 

13 

95 

7  0 

25 

35 

36 

26 

96 

7  0 

26 

36 

37 

27 

ELEMENT 

-END-  TYPE  = 

0  --  GRIDS  = 

0  TOTAL  = 

0  WDS/EL= 

0  LINES  =  0 

DISPLCNT- 

CASE  = 

123  O.OOOOOE+OO  WORDS  = 

8  INPUT 

=0UGV1 

COORD  =  BASIC 

C-OE  =  11222222 

TESTING  DATABASE  MODULE 
USING  CYLINDRICAL  COORDINATES 

GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INP1,  FORMATTED  SUBCASE  123 

1  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

2  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

7  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

11  1-2.60123E-04-1.82304E-05-4.67421E-03  4.70262E-06  8.52535E-04-1 .88229E-05 

12  1  3.83816E-04-2. 12288E-05-4.67951E-03  4.28730E-06  8.32770E-04-2.40871E-05 

13  1  7.73512E-04-1.39135E-05-4.68750E-03  2.54032E-06  8.23590E-04-1.38043E-05 

17  1-2.60124E-04  1 .82304E-05-4.67421E-03-4.70272E-06  8.52535E-04  1.88230E-05 

21  1-4.18980E-04-1 .65105E-05-1.60400E-02-2.05709E-06  1 .34817E-03-1 .49174E-05 

22  1  6.21767E-04-1 .44541E-05-1.60384E-02-1 .69086E-06  1 .32862E-03-2.22383E-05 

36  1  7.03124E-04  1 .79987E-05-3.06975E-02  1.25128E-05  1.49723E-03  1.86739E-05 

37  1-4.71410E-04  2.95259E-05-3.07111E-02  1.41476E-05  1.51060E-03  1.72437E-05 

101  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

111  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

999  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

-0  -0  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

CASE  =  456  O.OOOOOE+OO  WORDS  =  8  INPUT  =0UGV1  COORD  =  BASIC  COOE  =  11222222 

TESTING  DATABASE  HOOULE 
USING  CYLINDRICAL  COORDINATES 

GRIDS,  ELEMENTS,  AND  DISPLACEMENTS  OUTPUT  TO  INPl,  FORMATTED  SUBCASE  456 

1  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

2  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

7  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

11  1  - 2 . 601 1 2E - 04- 1 .83478E -05 -4 . 67422E - 03  4.77446E-06  8.52525E-04-1.89070E-05 

12  1  3.83815E-04-2.13520E-05-4.67957E-03  4.28529E-06  8.32816E-04-2.40777E-05 

16  1  3.83815E-04  2.13524E-05-4.67957E-03-4.28538E-06  8.32816E-04  2.40777E-05 

17  1 -2.601 13E-04  1 .83480E-05-4.67422E-03-4.77456E-06  8.52525E-04  1.89070E-05 

21  1-4.19422E-04-1.26166E-05-1.60344E-02  1.67605E-06  1.34676E-03-1.29017E-05 

22  1  6.22199E-04-1 .31377E-05- 1 .60362E-02  9.53834E-07  1 .32781E-03-2.08896E-05 

27  1-4.19422E-04  1.26157E-05-1.60344E-02-1.67634E-06  1.34676E-03  1.29018E-05 

31  1-4.71294E-04  1 .27194E-05-3.06833E-02  2.59292E-05  1.50834E-03-1.35460E-05 

37  1 -4.71 294E-04-1 .27191 E-05-3.06833E-02- 2. 59296E-05  1.50834E-03  1.35460E-05 

101  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

555  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

999  1  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

-0  -0  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

CASE  =  0  O.OOOOOE+OO  WORDS  =  0  INPUT  =  -END-  COORD  =  COOE  =  0 
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(C)  RDBASE  -  A  FORTRAN  PROGRAM  TO  READ  UNFORMATTED 
OUTPUT  FILE  GENERATED  BY  DATABASE  MODULE 


PROGRAM  RDBASE 
C 

C  THIS  FORTRAN  PROGRAM  READS  THE  UNFORMATTED  OUTPUT  FILE  INP1 
C  (FORTRAN  UNIT  15)  GENERATED  BY  DATABASE  MOOULE 
C 

C  (1)  GRID  POINTS  DATA  ARE  READ  AND  SAVED  IN  GRID-ARRAY 

C  (2)  ELEMENTS  DATA  ARE  READ  AND  SAVED  IN  ELM-ARRAY, 

C  UITH  ELEMENT  NAMES  AND  POINTERS  IN  SAVE-ARRAY 

C  (3)  DISPLACEMENTS  (VELOCITIES,  ACCELERATIONS,  LOADS,  GRID-POINT 
C  FORCE,  OR  EIGENVECTORS)  DATA  ARE  READ  AND  SAVED  IN  DIS-ARRAY, 

C  WITH  SUBASES  AND  POINTERS  IN  SAVD-ARRAY 

C 

C  ANY  OF  ABOVE  3  SETS  OF  DATANEED  NOT  EXIST  IN  ORIGINAL  INP1  FILE 
C 

C  TO  READ  ELEMENT  FORCES  OR  ELEMENT  STRESSES,  (3)  ABOVE  NEEDS  SOME 

C  CHANGES.  PARTICULARLY  WE  NEED  THE  INFORMATION  IN  COOE  TO  GIVE  US 

C  THE  TYPE  OF  EACH  DATA  WORD  IN  THE  DATA  LINE. 

C  ASSUME  CODE(I)  =  11222222 

C  COOE(2)  =  31222000 

C  THIS  MEANS 

C  THE  1ST,  2ND,  AND  10TH  DATA  WORDS  ARE  INTEGERS; 

C  9TH  DATA  WORD  IS  BCD;  AND 

C  3RD  THRU  8TH,  11TH,  12TH  AND  13TH  WORDS  ARE  REAL  NUMBERS 

C 

C 

C  WRITTEN  BY  G. CHAN/UNISYS,  JAN.  1989 

C 

IMPLICIT  INTEGER 
INTEGER 

1 
2 

REAL 

DOUBLE  PRECISION 
EQUIVALENCE 
DATA 

1 

DATA 

1 
C 

REWIND  INTAP 
C 

C  READ  DATA  IDENTICATION  RECORD 
C 

70  READ  (INTAP, END=400)  GED 

IF  (NOUT  .EQ.  6)  WRITE  (NOUT.80)  GED 

80  FORMAT  (1X,A8,' . ') 

IF  (GED  .EQ.  GO)  GO  TO  100 
IF  (GED  .EQ.  EL)  GO  TO  200 
IF  (GED  .EQ.  DS)  GO  TO  300 
STOP  'DATA  TYPE  UNKNOWN' 

C 


(A-Z) 

GRID(5,500),ELM(35,300),DIS(11200),SAVE(4,10), 

SAVD(3,20),NAME(2),TITLE(32),SUBTTL(32), 

LABL(32),C00E(6) 

GRI R( 5 ,1),RIS(1), FREQ 

GED, GD, EL, DS.ENDD, COORD 

(GRID(1),GRIR(1)),(DIS(1),RIS(1)) 

INTAP,  NOUT,  MAXGRD,  MAXELM,  MAXDIS,  MAXWDS  / 

15,  6,  500,  300,  11200,  35  / 

GD,  EL,  DS,  END1  / 

8HGRID  PTS,  8HELEMENTS,  8HDISPLCNT,  4H  -EN  / 
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PROCESS  GRID  DATA 


C 
C 
C 

C  READ  GRID  POINT  DATA,  ONE  LONG  RECORD  OF  MIXED  INTEGERS  AND  REALS 
C 

100  READ  (INTAP, END=400)  L,(GRI0(J,1), J=1,L) 

IF  (NOUT  .NE.  6)  GO  TO  70 
NGRID  =  L/5 

IF  (NGRID  .GT.  MAXGRD)  STOP  'GRID  DIMENSION  TOO  SMALL' 

WRITE  (NOUT, 120)  NGRID 

120  FORMAT  (1X,I8,'=T0TAL  NO.  OF  GRID  POINTS') 

DO  140  1=1, NGRID 

WRITE  (NOUT, 130)  GRID(1, I ),GR!D(2, 1 ),GR!R(3, I),GR1R(4, I ),GRIR(5, I ) 
130  FORMAT  (1X,2I8,3(1PE12.5)) 

140  CONTINUE 
GO  TO  70 
C 

C  PROCESS  ELEMENT  DATA 
C  ==================== 

c 

200  JS  =  0 
JE  =  0 
C 

C  READ  ELEMENT  HEADER  RECORD,  8  WORCS 
C 

210  READ  ( INTAP, END=400)  NAME, TYPE, SYMBOL, GRIDS, TOTAL, WDS, LINE 
IF  (NAME(I).EQ.ENDI  .AND.  TYPE.EQ.O)  GO  TO  250 
IF  (WDS  .GT.  HAXWDS)  STOP  'ELM  ROW  DIMENSION  TOO  SHALL' 

IF  (JE  .GT.  MAXELH)  STOP  'ELM  COL  DIMENSION  TOO  SMALL' 

JB  =  JE+1 
JE  =  JE+TOTAL 
C 

C  READ  ELEMENT  DATA,  ONE  LONG  RECORD  PER  ELEMENT  TYPE  (ALL  INTEGERS) 
C 

READ  (INTAP)  ((ELM(I, J),I=1,WDS),J=JB, JE) 

JS  =  JS+1 

IF  (JS  .GE.  10)  STOP  'SAVE  DIMENSION  TOO  SMALL' 

C 

C  SAVE  ELEMENT  NAMES  AND  BEGINNING  POINTERS  IN  SAVE-ARRAY 
C  FOR  EASY  IDENTIFICATION 
C 

SAVE(1,JS)  =  NAME(I) 

SAVE(2, JS)  *  NAHE(2) 

SAVE(3, JS)  =  JB 

SAVE(4, JS)  =  WDS 

IF  (NOUT  .NE.  6)  GO  TO  210 

WRITE  (NOUT, 220)  NAME, TYPE, SYMBOL, GRIDS, TOTAL, WDS, LINE 
220  FORMAT  (IX, 'ELEMNT  =',2A4,'  TYPE  =' , I4,2X,A2, '  GRIDS  =' , 18, 

1  '  TOTAL  =',I8, '  WDS/EL=',I8,  'LINE  =',J8) 

DO  240  J=JB, JE 

WRITE  (NOUT, 230)  (ELM(I,J),I=1,WDS) 

230  FORMAT  (IX, 318, 1318,  /,(1X,8X,15I8)) 

240  CONTINUE 
GO  TO  210 
C 


72 


C  WRAP  UP  SAVE-ARRAY 
C 

250  JS  =  JS+1 

SAVE(1,JS)  =  END  1 
SAVE(2,JS>  =  NAME (2) 

SAVE(3, JS)  =  JE+1 
SAVE(4, JS)  =  0 
IF  (NOUT  .NE.  6)  GO  TO  70 
WRITE  (NOUT ,260) 

WRITE  (NOUT, 270)  ((SAVE( I , J), 1=1 ,4), J=1 , JS) 

260  FORMAT  (/30X, ‘THIS  REFERENCE  TABLE  IS  NOT  PART  OF  INPUT  FILE') 

270  FORMAT  (40X,2A4,3H  a  ,14,',  WORDS=',I3> 

GO  TO  70 
C 

C  PROCESS  DISPLACEMENT  DATA 
0  ========================= 

C 

c 

290  STOP  'ERROR  IN  READING  DISPLACEMENT  DATA' 

C 

300  KB  =  1 
KS  =  0 
C 

C  READ  DISPLACEMENT  HEADER  RECORD 
C 

310  KS  =  KS+1 

IF  (KS  .GT.  20)  STOP  'SAVD  DEMINSION  TOO  SMALL' 

READ  ( INTAP, END=380)  CASE, FREQ, NWDS, NAME, COORD, COOE.T I TLE.SUBTTL, 
1  LABEL 

IF  (CASE+NWDS  .EQ.  0)  GO  TO  380 
IF  (NOUT  .NE.  6)  GO  TO  330 

WRITE  (NOUT, 320)  CASE, FREQ, NWDS, NAME, COORD, COOE(1),COOE(2), TITLE, 
1  SUBTTL, LABEL 

320  FORMAT  ('  CASES  =' , 18, 1PE12.5, '  WORDS  =',I8,'  INPUT  =',2A4, 

1  '  COORD  =',A8, '  CODE  =  ',218,  /,(1X,32A4)) 

C 

C  DISPLACEMENT  RECORS  HAVE  EITHER  8  OR  14  WORDS  EACH  DATA  POINT 

C  WITH  CODE(1)=11222222,  COOE(2)  THRU  (5)  ARE  ZEROS. 

C 

C  (IF  THIS  WERE  TO  READ  ELEMENT  STRESS  RECORDS,  THERE  WOULD  BE 
C  NWDS  DATA  WORDS  PER  ELEMENT,  AND  THERE  WOULD  BE  NWDS  DIGITS  IN 

C  COOE  INDICATING  THE  TYPE  OF  EACH  DATA  WORD.  FIRST  DIGIT  (FROM 

C  LEFT  TO  RIGHT)  POINTS  TO  THE  DATA  TYPE  OF  FIRST  DATA  WORD, 

C  2ND  DIGIT  TO  2ND  DATA  WORD,  AND  SO  ON.  SEE  EXAMPLE  AT  THE 

C  BEGINNING  OF  THIS  SUBROUTINE) 

C 

330  IF  (NWDS.NE.8  .AND.  NWDS. NE. 14)  STOP  'WORD  COUNT  ERROR' 

IF  (COOE(1)  .NE.  11222222)  STOP  'FORMAT  COOE  ERROR' 

C 

C  SAVE  SUBCASE  NUMBER  AND  BEGINNING  POINTERS  !H  SAVD-ARRAY 
C  FOR  EASY  IDENTIFICATION 

C 

KBM1  =  KB- 1 
SAVD(1,KS)  =  CASE 
SAVD(2,KS)  =  KB 
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SAVD(3,KS)  =  NWDS 


C 

C  READ  DISPLACEMENT  RECORD,  ONE  LONG  RECORD  PER  SUBCASE  (OR  FREQ.) 

C  EACH  GRID  POINT  DISPLACEMENT  DATA  IN  EVERY  8  OR  14  WORDS, 

C  2  INTEGERS  +  6  (OR  12)  REALS 
C 

340  READ  (INTAP, ERR=290)  L , (D I S( I+KBH1 ) , I =1 , L > 

KE  =  L+KBH1 

DO  370  K=KB,KE,NWDS 

WRITE  (NOUT,350)  DIS(K),DIS(K+1),  (RIS(K+I ), 1=2,  7) 

IF  (NUDS  .EQ.  14)  WRITE  (NOUT.360)  (RIS(K+I >, 1=8, 13) 

350  FORMAT  ( IX , 2I8,6( 1PE1 2 . 5 ) > 

360  FORMAT  (1X,16X,6(1PE12.5)) 

370  CONTINUE 
KB  =  KE+1 
GO  TO  310 
C 

C  WRAP  UP  SAVD -ARRAY 
C 

380  SAVD(1 ,KS)  =  0 
SAVD(2,KS)  =  KE+1 
SAVD(3,KS)  =  0 
IF  (NOUT  .NE.  6)  GO  TO  70 
WRITE  (NOUT, 260) 

WRITE  (NOUT, 390)  (SAVD(1,K),SAVD(2,K),SAVD(3,K),K=1,KS> 

390  FORMAT  (40X, 'CASE', 18, 3H  d  ,14,',  WORDS=',I4) 

GO  TO  70 
C 

400  REWIND  INTAP 
END 
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APPENDIX  K 

USERS'  MANUAL  UPDATE  PAGES  FOR  THE  NEW  RIGID  ELEMENTS 
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BULK  DATA  DECK 


Input  Data  Card  CRROD  Rigid  Pin-Ended  Rod 


Def.nes  a  pin-ended  rod  that  is  rigid  in  extension-compression. 


Format  and  Example: 


1 

2 

3 

4 

S 

6 

7 

8 

9 

10 

j  CRROD 

|  EID 

1  Gl 

|  G2 

1  Cl 

|  C2 

iX 

:x 

;x 

r  15 

J  1 

|  CRROD 
+ . 

1  14 

1  1 

1  2 

1  2 

1 

1 

1 

1 

1  1 
. + 

Field  Contents 

EID  Element  identification  number  (Integer  >  0) 

Gi  Identification  numbers  of  connection  grid  points  (Integers  >  0) 

Ci  Component  number  of  one  and  only  one  dependent  translational  degree  of  freedom  in 

the  global  coordinate  system  assigned  to  either  Gl  or  G2.  (Integer  equals  to  1,  2, 
or  3.)  Either  Cl  or  C2  must  contain  an  integer  and  the  other  must  be  blank.  See 
Remarks  2  and  3. 


Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  The  grid  point  that  associates  with  a  blank  Ci  field,  is  designated  as  the 
reference  independent  grid  point. 

3.  The  dependent  (that  is  constrained)  degrees  of  freedom  in  a  CRROD  element  may  not 
appear  on  OMIT,  0MIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly  implied  on 
ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom  in  other 
rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  be  independent  by  a 
rigid  element  can  be  made  dependent  by  another  rigid  element  or  by  an  MPC  card. 

4.  Rigid  elements,  unlike  MPC's,  are  not  selected  through  the  Case  Control  Deck. 

5.  Forces  of  constraint  are  not  recovered. 

6.  Rigid  elements  are  ignored  heat  transfer  problems. 


76 


NASTRAw  DATA  DECK 


7.  The  degree  of  freedom  selected  to  be  dependent  must  have  a  nonzero  component  along 
the  axis  of  the  rod. 

8.  Nastran  actually  converts  the  CRROD  input  card  into  the  CRIGDR  card  format,  and 
thus  processes  a  CRROD  card  as  if  it  were  a  CRIGDR  card.  The  following  table  shows 
the  conversion,  in  free-field  format,  of  two  possible  cases: 

Case  CRROD  Card  Equivalent  CRIGDR  Card 


1  CRROD,  EID,  Gl,  G2,  Cl,  CRIGDR,  EID,  G2,  Gl,  Cl 

2  CRROD,  EID,  Gl,  G2,  ,  C2  CRIGDR,  EID,  Gl,  G2,  C2 

9.  See  section  1.4. 2. 2  for  a  discussion  of  rigid  elements. 
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BULK  DATA  DECK 


Input  Data  Card  CRBAR  Rigid  Bar 


Description:  Defines  a  rigid  bar  with  six  degrees  of  freedom  at  each  end. 


Format  and  Example: 


123456789  10 

+ - "  —  -> - + 

|  CRBAR  |  EID  |  G1  |  G2  |  IC1  |  IC2  |  DC1  |  DC2  £><J  I 

|  CRBAR  |  5  |  1  |  2  |  234  |  123  |  |  |  |  I 

+ - - - * - + 

Field  Contents 

EID  Element  identification  number  (Integer  >  0) 

Gi  Identification  numbers  of  connection  grid  points  (Integers  >  0) 

ICi  Independent  degrees  of  freedom  in  the  global  coordinate  system  for  the  element  at 

grid  points  Gi  (any  of  the  digits  1-6  with  no  imbedded  blanks.  Integers  >  0  or 
blank.)  See  Remark  2. 

DCi  Dependent  degrees  of  freedom  in  the  ilobal  coordinate  system  assigned  by  the 

element  at  grid  points  Gi  (any  of  the  digits  1-6  with  no  imbedded  blanks.  Integers 
M  °r  blank.)  See  Remarks  3  and  4. 


Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  The  total  number  of  degrees  of  freedom  specified  (ICI  and  IC2)  must  equal  six;  for 
example,  ICI  =  1236,  IC2  =  34.  Further,  they  should  together  be  capable  of 
representing  any  general  rigid  body  motion  of  the  element. 

3.  If  both  DCI  and  DC2  are  zero  or  blank,  all  of  the  degrees  of  freedom  not  in  ICI  and 
IC2  will  be  made  dependent. 

<i.  The  dependent  (that  is,  constrained)  degrees  of  freedom  in  a  CRBAR  element  may  not 
appear  on  OMIT,  0MIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly  implied  on 
ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom  in  other 
rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  be  independent  by  a 
rigid  elomenv  can  be  made  dependent  by  another  rigid  element  or  by  an  MPC  card. 
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NASTRAN  DATA  DECK 


5.  Rigid  elements,  unlike  HPC's,  are  not  selected  through  the  Case  Control  Deck. 

6.  Forces  of  constraint  are  not  recovered. 

7.  Rigid  elements  are  ignored  in  heat  transfer  problems. 

8.  Nastran  actually  converts  the  CRBAR  input  card  into  the  CRIGD3  card  format,  and 
thus  processes  a  CRBAR  card  as  if  it  were  a  CRIGU3  card.  The  following  table  shows 
the  method  of  conversion,  in  free-field  format: 

CRBAR  Card  — «>  Equivalent  CRIGD3  Card 


CRBAR,  E ID,  Gl,  G2,  IC1,  IC2,  DC1,  DC2 

— >  CRIGD3,  EID,  Gl,  IC1,  G2,  IC2 
,"MSET",  Gl,  DC1,  G2,  DC2 

9.  See  Section  1.4. 2. 2  for  a  discussion  of  rigid  elements. 
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Input  Data  Card  CRTRPLT  Rigid  Triangular  Plate 

Description:  Defines  a  rigid  triangular  plate. 


Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  The  total  number  of  degrees  of  freedom  specified  for  the  reference  grid  points  (IC1 
IC2,  and  IC3)  must  be  six;  for  example,  IC1  «  1236,  IC2  *  3,  IC3  -  3.  Further, 
they  should  together  be  capable  of  representing  any  general  rigid  body  motion  of 
the  element. 

3.  If  DC1,  DC2,  and  DC3  are  all  zero  or  blank  or  if  the  continuation  card  is  omitted, 
all  of  the  degrees  of  freedom  not  in  IC1,  IC2,  and  IC3  will  be  made  dependent. 

4.  The  dependent  (that  is,  constrained)  degrees  of  freedom  in  a  CRTRPLT  element  may 
not  appear  on  OMIT,  0MIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly 
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implied  on  ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom 
in  other  rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  be 
independent  by  a  rigid  element  can  be  ma^e  dependent  by  another  rigid  element  or  by 
an  MPC  card. 

5.  Rigid  elements,  unlike  MPC's,  are  not  selected  through  the  Case  Control  Deck. 

6.  Forces  of  constraint  are  not  recovered. 

7.  Rigid  elements  are  ignored  in  heat  transfer  problems. 

8.  Nastran  actually  converts  the  CRTRPLT  input  card  into  the  CRIGD3  card  format,  and 
thus  processes  a  CRTRPLT  card  as  if  it  were  a  CRIGD3  card.  The  following  table 
shows  the  method  of  conversion,  in  free-field  format: 

CRTRPLT  Card  — «>  Equivalent  CRIGD3  Card 


CRTRPLT,  EID,  Gl,  G2,  G3,  IC1,  IC2,  IC3 
,  DC1,  DC2,  DC3 

— >  CRIGD3,  EID,  Gl,  IC1,  G2,  IC2,  G3,  IC3 
,"MSET",  Gl,  DC1,  G2,  DC2,  G3,  DC3 

9.  See  Section  1.4. 2. 2  for  a  discussion  of  rigid  elements. 
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Input  Data  Card  CRBE1  Rigid  Body  Element,  Form  1 


Description:  Defines  a  rigid  body  connected  to  an  arbitrary  number  of  grid  points. 


Format  and  Examolc 

1  2 

;  • 

3 

4 

5 

6 

7 

8 

9  10 

j  CRBE1 

|  EID 

|  IGI 

|  ICI 

|  1G2 

|  IC2 

|  IG3 

|  IC3 

Q><Oabc 

1 

i  CRBE1 

|  103 

1  11 

1  1 

1  12 

1  2 

1  13 

1  4 

|  |  ABC 

1 

j+bc 

iX> 104 

|  IC4 

|  IG5 

|  IC5 

|  IG6 

|  IC6 

lX\'def 

1 

|+BC 

1 

1  14 

|  35 

1  15 

1  6 

1 

1 

1  1  CDF 

1 

|+ef 

|  "UM" 

|  DG1 

|  DCI 

|  0G2 

|  DC2 

|  DG3 

|  DC3 

f><09hi 

1 

|+DF 

|  UM 

1  21 

|  123 

|  22 

i  1 

|  23 

1123456 

1  IEFI 

1 

j+hi 

IX 

|  0G4 

|  DC4 

|  DG5 

|  DC5 

|  etc. 

iXjXj 

1 

|+HI 

1 

1  24 

|  456 

1  25 

1  2 

1 

i 

1  1 

1 

. . . 

Field  Contents 


EID 

IGi 

ICi 

"UM" 

OGi 

DCi 


Element  identification  number  (Integer  >  0) 

Identification  numbers  of  the  reference  independent  grid  points  (Integers  >  0.) 

Independent  degrees  of  freedom  in  the  global  coordinate  system  for  the  preceding 
reference  grid  point  (any  of  the  digits  1-6  with  no  imbedded  blanks.  Integer  >  0.) 
See  Remarks  2,  3,  and  5. 

BCD  word  that  indicates  the  start  of  the  data  for  dependent  grid  points. 
Identification  numbers  of  the  dependent  grid  points  (Integer  >  0). 


Dependent  degrees  of  freedom  in  the  global  coordinate  system  for  the  preceding 
dependent  grid  point  (any  of  the  digits  1-6  with  no  imbedded  blanks.  Integer  >  0.) 
See  Remarks  4  and  5. 
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Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  The  total  number  of  degrees  of  freedom  specified  for  the  reference  grid  points  (1C1 
through  IC6)  must  be  six;  for  example,  IC1=1,  !C2=2,  IC3=4,  IC4=3,5,  IC5=6. 

Further,  they  should  together  be  capable  of  representing  any  general  rigid  body 
motion  of  the  element. 

3.  The  first  continuation  card  is  not  required  if  less  than  four  reference  independent 
grid  points  are  specified. 

4.  The  dependent  (that  is,  constrained)  degrees  of  freedom  in  a  CRBE1  element  may  not 
appear  on  OMIT,  0MIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly  implied  on 
ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom  in  other 
rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  be  independent  by  a 
rigid  element  can  be  made  dependent  by  another  rigid  element  or  by  an  MPC  card. 

5.  A  degree  of  freedom  cannot  be  both  independent  and  dependent  for  the  same  element. 
However,  both  independent  and  dependent  components  can  exist  at  the  same  grid 
point. 

6.  Rigid  elements,  unlike  MPC's,  are  not  selected  through  the  Case  Control  Deck. 

7.  Forces  of  constraint  are  not  recovered. 

8.  Rigid  elements  are  ignored  in  heat  transfer  problems. 

9.  Nastran  actually  converts  the  CRBE1  input  card  into  the  CRIGD3  card  format  by 
switching  the  "UM"  BCD  word  to  "MSET",  and  thus  processes  a  CRBE1  card  as  if  i c 
were  a  CRIGD3  card. 

CRBE1  Card  ««>  Equivalent  CRIGD3  Card 


CRBE1,  EID,  IG1,  IC1,  IG2,  IC2,  IG3,  IC3 

,  HUM",  DG1,  DC1,  IG2,  0C2,  etc. 

«==>  CRIGD3,  EID,  IG1,  IC1,  IG2,  IC2,  IG3,  IC3 

,  "MSET",  DG1,  DC1,  DG2,  DC2,  etc. 

10.  See  Section  1.4. 2. 2  for  a  discussion  of  rigid  elements. 
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Input  Data  Card  CRBE2  Rigid  Body  Element,  Form  2 


Description:  Defines  a  rigid  body  whose  independent  degrees  of  freedom  are  specified  at  a  single 
grid  point  and  whose  dependent  degrees  of  freedom  are  specified  at  an  arbitrary 
number  of  grid  points. 


Format  and  Example: 

1  23456789  10 

+ - - 

|  CRBE2  |  EID  |  IG  |  C  |  G1  |  G2  |  G3  |  G4  |  G5  |abc  | 

|  CRBE2  |  9  |  8  |  12  |  10  |  12  |  14  |  15  |  16  |ABC  | 

. . . 

. . + 

|+bc  |  G6  |  G7  |  G8  |  etc.  I  I  I  I  I  I 

i+Bc  I  20  I  i  i  I  i  I  I  i  i 

. . . 

Field  Contents 


EID  Element  identification  number  (Integer  >  0) 

IG  Identification  number  of  the  reference  grid  point,  to  which  all  six  independent 

degrees  of  freedom  for  the  element  are  assigned  (Integer  >  0) 

C  The  dependent  degrees  of  freedom  in  the  global  coordinate  system  for  all  the 

dependent  grid  points  Gi  (any  of  the  digits  1-6  with  no  imbedded  blanks.  Integer  > 
0.)  See  Remark  2. 

Gi  Identification  numbers  of  the  dependent  grid  points  (Integers  >  0) 

Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  The  dependent  (that  is  constrained)  degrees  of  freedom  in  a  CRBE2  element  may  not 
appear  on  OMIT,  0MIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly  implied  on 
ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom  in  other 
rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  be  independent  by  a 
rigid  element  can  be  made  dependent  by  another  rigid  element  or  by  an  MPC  card. 

3.  Rigid  elements,  unlike  MPC's,  are  not  selected  through  the  Case  Control  Deck. 
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4.  Forces  of  constraint  are  not  recovered. 

5.  Rigid  elements  are  ignored  in  heat  transfer  problems. 

6.  Nastran  actually  converts  the  CRBE2  input  card  into  the  CRIGD2  card  format,  and 
thus  processes  a  CRBE2  card  as  if  it  were  a  CRIGD2  card.  The  following  table  shows 
the  method  of  conversion,  in  free-field  format: 

CRBE2  Card  -««>  Equivalent  CRIGD2  Card 

CRBE2,  EID,  IG,  C,  Gl,  G2,  G3,  etc. 

«=«>  CRIGD2,  EID,  IG,  Gl,  C,  G2,  C,  G3,  C,  etc. 

7.  See  Section  1.4. 2. 2  for  a  discussion  of  rigid  elements. 
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Input  Data  Card  CRBE3  Rigid  Body  Element,  Form  3 


Description:  Defines  the  motion  at  a  "reference"  grid  point  as  the  weighted  average  of  the 
motions  at  a  set  of  other  grid  points. 


Format  and  Example: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

I  CRBE3 

|  EID 

Xi 

IG 

1  ic 

|  W1 

1  ci 

1  61,1 

I  61,2 

|abc 

|  CRBE3 

1  H 

1  1 

100 

|  1234 

|  1.0 

|  123 

1  1 

1  3 

|  ABC 

j 

j+bc 

1  G1.3 

1  W2  | 

C2 

1  62,1 

1  62,2 

1  62,3 

|  W3 

1  *3 

|  def 

|+BC 

1  5 

1  4.7  | 

1 

1  2 

1  4 

1  6 

|  5.2 

1  2 

|  DEF 

|+ef 

1  63,1 

I  63,2  | 

G3,3 

|  W4 

1  64 

I  64,1 

|  64,2 

I  64,3 

|ghi 

|+EF 

1  7 

1  8  | 

|  5.1 

1  1 

1  15 

1  16 

1 

|  GHI 

j+hi 

|  "UM" 

1  dgi  | 

DC1 

|  DG2 

|  DC2 

|  DG3 

|  DC3 

X 

1  jkl 

|+HI 

|  UM 

1  ioo  | 

14 

1  5 

1  3 

1  7 

1  2 

1 

|  JKL 

j+kl 

iX 

|  DG4  | 

DC4 

|  DG5 

|  DC5 

|  DG6 

|  DC6 

Xi 

|+KL 


T  - - 

Field 

Contents 

EID 

Element  identification  number  (Integer  >  0) 

IG 

Reference  grid  point  (Integer  >  0) 

IC 

Global  components  of  motion  whose  values  will  be  computed  at  the  reference  grid 
point  (any  of  the  digits  1-6  with  no  imbedded  blanks.  Integer  >  0) 

Wi 

Weighting  factor  for  components  of  motion  on  the  following 
Gi,j  (Real) 

card  at  grid  points 

Ci 

Global  components  of  motion  which  have  weighting  factor  Wi 
of  the  digits  1-6  with  no  imbedded  blanks.  Integers  >  0) 

at  grid  points  Gi,j 

(any 
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Gi,j  Grid  point  whose  components  Ci  have  weighting  factor  Wi  in  the  averaging  equations 

(Integers  >  0) 

"UM"  BCD  word  that  indicates  the  start  of  the  data  for  the  components  of  motion  at  grid 

points  DGi  (Optional).  The  default  is  that  all  of  the  component  in  IC  at  the 
referent  grid  point  IG,  and  no  others,  are  included  in  the  dependent  component  set 
<u  } 

m 

DGi  Grid  points  with  components  DCi  in  (u  }  (Integers  >  0) 

m 

DCi  Components  of  motion  at  grid  point  DGi  (any  of  the  digits  1-6  with  no  imbedded 

blanks,  Integers  >  0) 

Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  Blank  spaces  may  be  left  at  the  end  of  a  Gi,j  sequence. 

3.  The  default  for  UM  should  be  used  except  in  cases  where  the  user  wishes  to  include 
some  or  all  IC  components  in  displacement  sets  exclusive  from  the  (u  }  set. 

If  the  default  is  not  used  for  UM: 

a.  The  total  number  of  components  in  (u  }  (that  is,  the  total  number  of  dependent 
degrees  of  freedom  defined  by  the  element)  must  be  equal  to  the  number  of 
components  in  IC  (four  in  the  above  example). 

b.  The  components  in  UM  must  be  a  subset  of  the  components  mentioned  in  IC  and 
(Gi,j;  Ci). 

c.  The  coefficient  matrix  [R  ]  in  the  constraints  equation 

[R  ]{u  }  +  [R  ]{u  }  «  0  must  be  nonsingular, 
mm  n  n 

4  The  dependent  (that  is  constrained)  degrees  of  freedom  in  a  CRBE3  element  may  not 
appear  on  OMIT,  0MIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly  implied  on 
ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom  in  other 
rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  be  independent  by  a 
rigid  element  can  be  made  dependent  by  another  rigid  element  or  by  an  MPC  card. 

5.  Rigid  elements,  unlike  MPC's,  are  not  selected  through  the  Case  Control  Deck. 

6.  Forces  of  constraint  are  not  recovered. 
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7.  Rigid  elements  are  ignored  in  heat  transfer  problems. 

8.  Unlike  the  other  rigid  elements,  this  CRBE3  element  and  the  CRSPLJNE  element  cannot 
be  converted  into  CRIGD2  or  CRIGD3  elements.  A  Fortran  subroutine  (in  single 
precision  version  and  in  double  precision  version)  was  written  to  handle  these  two 
special  rigid  elements. 
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Input  Data  Card  CRSPLINE 


Description:  Defines  multipoint  constraints  for  the  interpolation  of  displacements  at  grid 
points 


Format  and  Example: 


1  2  3  4  5  6  7  8  9  10 

- ~  - - -  -  - - -  - - - - -  -  -  -  -  - - - - - - - - 4. 

| CRSPLINE  |  EID  |  D/L  '|  G1  |  G2  |  C2  |  G3  |  C3  |  G4  |abc  | 

| CRSPLINE  |  73  j  .05  |  27  |  28  j  123456  |  29  j  |  30  {ABC  | 

+ . + 

|+bc  |  C4  |  G5  |  C5  |  G6  |  etc.  |  '  |  I  I 

j+BC  |  123  |  75  |  123  |  71  |  I  ’  |  I 

+ .  -  . + 

Field  Contents 


EID  Element  identification  number  i'** «ppr  >  0) 

D/L  Ratio  of  the  diameter  of  the  e  tube  wi.  r‘  '■  /vp-'sjents  to  the  sum  of 

the  lengths  of  all  segments.  D<=  *-0.1  (Ret,  .  < 

Gi  Identification  number  of  the  ith  g>i.  -..jit  „  .1  ‘  t 

Ci  Components  to  be  constrained  at  the  ith  grid  po  .  _  digits  1-6  with  no 

imbedded  blanks,  or  blank)  See  Remark  3. 


Remarks:  1.  Element  identification  number  must  be  unique  with  respect  to  all  other  element 
identification  numbers. 

2.  Displacements  are  interpolated  from  the  equations  of  an  elastic  beam  passing 
through  the  grid  points. 


3.  A  blank  entry  in  Ci  indicates  that  all  six  degrees  of  freedom  at  Gi  are 

independent.  Since  GI  must  be  independent,  no  field  is  provided  for  Cl.  Since  the 
last  grid  point  must  also  bs  independent,  the  last  entry  must  be  a  Gi,  not  a  Ci. 
For  the  example  shown,  GI,  G3  and  G6  are  independent;  G2  has  six  constrained 
degrees  of  freedom  while  G4  and  G5  each  have  three. 
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4.  The  dependent  (that  is,  constrained)  degrees  of  freedom  in  a  CRSPLINE  element  may 
not  appear  on  OMIT,  OMIT1,  SPC,  or  SUPORT  cards,  nor  may  they  be  redundantly 
implied  on  ASET  or  ASET1  cards.  They  may  not  appear  as  dependent  degrees  of  freedom 
in  other  rigid  elements  or  on  MPC  cards.  Degrees  of  freedom  declared  to  he 
independent  by  a  rigid  element  can  be  made  dependent  by  another  rigid  element  or  by 
an  MPC  card. 

5.  Rigid  elements,  unlike  MPC's,  are  not  selected  through  the  Case  Control  Deck. 

6.  Forces  of  constraint  are  not  recovered. 

7.  Rigid  elements  are  ignored  in  heat  transfer  problems. 

8.  Unlike  the  other  rigid  elements,  this  CRSPLINE  element  and  the  CRBE3  element  cannot 
be  converted  into  CRIGD2  or  CRIGD3  elements.  A  Fortran  subroutine  (in  single 
precision  version  and  in  double  precision  version)  was  written  to  handle  these  two 
special  rigid  elements. 
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Bcthesda,  Maryland  20084-5000 


SUMMARY 


Pair  an  and  Supertab  are  interacts  e  computer  graphics  pre  and  postprocessors  that  can  be  used  to 
generate  NASTRAN  bulk  data  decks  and  to  visualize  results  from  a  NASTRAN  analysis.  Both  of 
the  programs  are  in  use  at  the  Numerical  Slructmal  Mechanics  Branch  of  the  David  Taj  lor  Research 
Center  (DTRC).  This  paper  will  discuss  various  aspects  of  Patran  and  Supertab  including:  geometry 
modeling,  finite  element  mesh  generation,  bulk  data  deck  creation,  results  translation  and  visualiza 
tion,  and  the  user  interface.  Some  advantages  and  disadvantages  of  both  programs  will  be  pointed 
out. 


INTRODUCTION 


Interactive  computer  graphics  is  an  integral  part  of  finite  element  mesh  generation  and  analysis 
results  visualization.  Gone  are  the  days  of  typing  GRID  cards  on  a  keypunch  machine  and  pouring 
over  endless  pages  of  stiess  and  displacement  output.  NASTRAN  has  plotting  capabilities  in  a  batch 
or  interactive  mode.  However,  in  cither  mode,  visual  feedback  while  creating  a  finite  element  mesh 
is  not  possible  and  the  results  visualization  capabilities  arc  limited. 

Presently,  there  are  many  finite  element  pre-  and  postprocessors  that  run  on  PC’s,  workstations, 
and  mainframe  computers.  The  pre-  and  postprocessors  allow  the  user  to  interactively  define 
geometry,  approximate  that  geometry  with  a  finite  clement  mesh,  apply  loads  and  boundary  cordi- 
tions,  create  input  for  a  finite  clement  analysis  program,  and  visualize  results  from  the  analysis.  The 
programs  provide  a  powerful,  efficient,  fast,  and  invaluable  tool  to  an  engineer  to  improve  produc¬ 
tivity. 

Patran  (ref.  1)  and  Supertab  (refs.  2  5)  are  two  of  the  more  popular  and  widely  used  finite  element 
pre-  and  postprocessors.  Patran  is  a  pioduct  developed  and  marketed  by  PDA  Engineering  of  Costa 
Mesa,  California.  Supcrtab  is  a  product  developed  and  marketed  by  Structural  Dynamics  Research 
Corporation  (SDRC)  of  Muford  Ohio.  Both  of  these  programs  have  interfaces  to  NASTRAN  and 
can  be  used  to  generate  finite  e'c»,  ant  models  and  visualize  analysis  results.  The  scope  of  this  paper 
covers  the  usage  of  Patran  and  impel  tab  as  related  only  to  COSMIC/NASTRAN  (ref.  6)  and  not  any 
other  finite  element  analysis  programs. 

Several  items  about  this  paper  should  be  noted.  Both  Patran  and  Supertab  have  a  wide  variety  of 
features;  I  have  not  used,  nor  am  I  familiar  with  all  of  them.  However,  I  have  had  extensive  experi¬ 
ence  with  Patran  for  the  last  4  years  and  Superlab  over  the  last  year  to  generate  finite  element  models 
of  missile  launchers,  periscope  masts  and  windows,  propeller  blades,  and  other  Naval  structures.  In 
the  Numerical  Structural  Mechanics  Branch  there  are  also  several  other  experienced  Patran  and 
Supertab  users.  Any  opinions  expressed  are  my  own  and  are  not  necessarily  those  of  DTRC,  the 
Navy,  or  the  Department  of  Defense. 
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PATRAN  OVERVIEW 


The  standard  Patran  software  package  consists  of  se\eral  integrated  modules  to  generate  geometry 
models  consisting  of  curves,  surfaces,  and  solids  (P/Solid  module);  develop  a  finite  clement  mesh 
consisting  of  nodes,  elements,  loads,  boundary  conditions,  and  material  and  physical  properties 
(P/Fem),  and  visualize  the  geometry  model,  the  finite  clement  model  (P/Image),  and  the  analysis 
results  (P/Post  and  P/Plot).  Patran  also  has  several  optional  modules  that  perform  finite  element 
analysis,  mechanical  dynamics,  composite  analysis,  and  thermal  analysis.  Interfaces  to  finite  element 
analysis  programs  and  IGES  are  also  optional  modules.  Several  utility  programs  are  also  provided, 
including  a  set  of  Fortran  subroutines  to  access  a  Patian  database  directly  without  entering  Patran. 

Patran  runs  on  many  of  the  standard  workstations,  mainframe  computers,  and  graphics  devices. 
In  the  Numerical  Structural  Mechanics  Branch,  Patran  version  2.2  is  run  on  a  network  of  Apollo 
workstations  and  Patran  version  2.3  is  run  on  a  VAX  with  a  Tektronix  terminal.  The  Branch  uses  an 
interface  to  COSMIC/NASTRAN,  but  does  not  have  any  of  the  optional  analysis  modules. 

Patran  is  a  leased  product.  The  lease  fee  is  paid  yearly  and  is  determined  by  the  number  of  con¬ 
current  users  and  the  desired  modules,  interfaces,  and  graphics  device  drivers.  The  fee  includes  hot¬ 
line  support  and  software  upgrades.  Software  upgrades  are  not  released  for  all  computers,  modules, 
or  interfaces  at  the  same  time.  Presently,  the  Apollo  version  is  one  level  behind  the  current  VAX 
version. 


SUPERTAB  OVERVIEW 

Supertab  is  one  product  of  the  I  DEAS  (Integrated  Design  Engineering  Analysis  Software)  family 
of  software.  The  different  families  of  software  arc:  solid  modeling  (Geomod),  engineering  analysis 
(Supcrtab),  system  dynamics  (Systan),  drafting  (Geodraw),  and  test  data  analysis  (Tdas).  Within 
each  family  there  are  different  modules.  The  modules  within  Supertab  are:  pre/post  processing, 
model  solution,  optimization,  data  loaders,  and  frame  analysis.  Most  modules  contain  several  tasks. 
Some  of  the  tasks  within  .ie  Supertab  pre/postprocessing  module  are:  geometry  definition,  mesh  gen¬ 
eration,  model  checking,  and  postprocessing.  The  data  loader  module  of  Supertab  contains  transla¬ 
tors  for  all  supported  finite  element  analysis  codes.  I-DEAS  software  can  be  configured  to  contain 
only  the  required  families  and  for  some  families,  only  the  required  modules.  As  part  of  the  standard 
IDEAS  software  package,  a  relational  database  management  system  (Pearl),  an  IGES  translator,  and 
several  utility  programs  are  provided,  including  software  to  integrate  site-supplied  software  into  I- 
DEAS  as  its  own  module. 

Supcrtab  also  runs  on  many  of  the  standard  vvoikstations,  mainframe  computers,  and  graphics 
devices.  In  the  Numerical  Structural  Mechanics  Branch,  the  I-DEAS  product  being  used  is  called 
Supertab  Plus  version  4.0  running  on  a  network  of  Apollo  workstations.  Supertab  Plus  consists  of 
the  pre/postprocessing  and  data  loader  modules  of  Supcrtab  and  the  object  modeling  module  of 
Geomod.  In  terms  of  geometry  definition,  the  pre/postpiocessing  module  has  basic  geometric  model¬ 
ing  capacities,  while  the  object  modeling  module  has  very  powerful  solid  modeling  capabilities. 

Supcrtab  is  a  licensed  product.  The  user  pays  a  one  time  fee  depending  on  the  number  of  con- 
curient  users  and  the  desired  software  products.  An  optional  yearly  maintenance  fee  provides  hot¬ 
line  support  and  software  upgrades.  As  with  Patran,  software  upgrades  are  not  released  for  all  com¬ 
puters,  modules,  or  interfaces  at  the  same  time. 
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Before  a  user  creates  a  finite  element  mesh,  the  geometry  model  must  first  be  generated.  In 
Patran,  the  geometry  model  used  to  create  a  finite  element  model  consists  of  points  in  space  (Patran 
GRID  entities),  curves  (LINE),  surfaces  (PATCH),  and  solids  (IIYPERPATCH).  There  are  many 
ways  to  create  these  entities.  For  example,  rotating  a  line  about  an  axis  will  create  a  patch.  A  hyper¬ 
patch  can  be  created  from  the  linear  interpolation  of  the  region  between  two  patches.  The  intersec¬ 
tion  between  two  patches  creates  a  line.  However,  two  hyperpatches  cannot  be  intersected  to  create 
a  third  hyperpatch.  Patches  and  hyperpatches  could  be  reconstructed  from  the  resulting  lines  of 
intersection  between  the  individual  patch  faces  of  the  original  hyperpatches. 

The  mathematical  formulation  of  the  geometric  entities  is  a  parametric  cubic.  This  representation 
has  limitations;  a  line  can  go  exactly  through,  at  most,  four  grids;  fitting  a  line  through  more  than 
four  grids  will  result  in  a  least  squares  approximation.  The  approximation  may  be  sufficient,  or  more 
than  one  line  could  be  generated  through  the  grids.  The  same  problem  occurs  with  genet ating  a  B 
spline  line.  Given  n  grids,  n-1  parametric  cubic  lines  will  be  generated  that  represent  a  B  spline  for 
those  grids.  Usually,  the  user  would  rather  have  one  line  through  n  grids.  Having  n-1  lines  makes 
more  entities  to  manipulate  and  keep  track  of. 

Patches  arc  always  four-sided  entities  and  hyperpatches  are  always  six-sided  entities.  However, 
degenerate  three  sided  patches  and  degenerate  five-sided  hyperpatchcs  are  allowed.  The  sides  of  a 
patch  are  always  single  parametric  cubic  lines.  A  composite  curve  consisting  of  several  lines  defining 
the  sides  of  a  patch  is  not  allowed.  Therefore,  the  geometry  model  for  a  three-dimensional  (3-D) 
object  model  will  be  divided  into  some  combination  of  the  geometric  entities.  The  individual  lines, 
patches,  and  hypcrpatches  defining  the  geometry  model  will  be  used  to  create  the  finite  element 
model.  Just  as  a  finite  element  mesh  normally  is  not  discontinuous,  the  pattern  of  lines,  patches,  and 
hyperpatches  should  also  not  be  discontinuous.  Given  the  restrictions  on  the  number  of  sides  for 
patches  (4  or  3)  and  hyperpatches  (6  or  5),  the  desired  finite  element  mesh,  and  the  continuity  of  the 
geometric  entities,  an  excessive  number  of  geometric  entities  may  be  required  to  model  some  objects; 
and  other  objects  will  be  almost  impossible  to  model.  This  is  more  apparent  when  trying  to  divide  an 
object  into  hyperpatchcs. 

Patran  has  another  solid  modeling  capability.  This  feature  involves  using  boolean  operations  on 
solid  primitives.  The  solid  primitives  available  are  bricks,  cones,  cylinders,  elbows,  spheres,  and 
tori.  A  solid  primitive  can  also  be  created  from  any  collection  of  patches  provided  they  form  a 
closed  surface.  The  boolean  operations  are  difference,  intersection,  and  union.  The  user  can  create 
a  solid  cube  with  a  hole  through  the  center  by  using  a  brick,  a  cylinder,  and  the  difference  operation. 
However,  the  primitives  cannot  be  used  directly  to  create  a  finite  clement  mesh.  First,  the  primitives 
have  to  be  converted  into  geometric  entities.  For  the  cube  with  a  hole,  the  desired  geometric  entity 
would  be  a  set  of  hyperpatches.  However,  the  resulting  geometric  entities  are  patches  defining  the 
original  cube  without  a  hole,  patches  defining  the  original  cylinder,  and  the  lines  defining  the  intersec 
tion  of  the  cube  and  cylinder.  The  hyperpatches  can  be  constructed  from  those  lines  and  patches. 
Using  Patran  primitives  to  generate  geometric  entities  for  finite  element  models  is  not  very  useful. 
Patran  primitives  are  more  useful  in  generating  conceptual  solid  models  of  objects. 


SUPERTAB  GEOMETRY  MODELING 

Usually,  before  a  finite  clement  mesh  is  created  in  Supertab,  two-dimensional  (2-D)  and  3-D 
regions,  called  mesh  ureas  and  mesh  volumes,  have  to  be  defined.  Mesh  areas  and  mesh-volumes  are 
generated  from  curves  and  surfaces.  There  are  two  methods  for  creating  curves  and  surfaces  in 
Supertab.  The  first  method  is  to  generate  a  geometry  model  with  the  object  modeling  module  of 
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Geomod  and  to  transfer  the  curves  and  surfaces  to  Supertab.  The  second  method  is  to  use  the 
geometry  definition  task  in  the  pre/postprocessing  module  of  Supertab. 

The  object  modeling  module  of  Gcomod  creates  solid  geometry  models  using  3-D  primitives  or  2- 
D  cross  sections.  The  primitives  availablcs  arc  the  same  as  in  Patran.  User -defined  primitives  can  be 
generated  by  extruding  or  revolving  cross-sections  or  by  building  an  object  from  a  set  of  cross- 
sections.  The  primitives  can  be  cut,  joined,  or  intersected  using  boolean  operations.  The  curves  and 
surfaces  associated  with  the  resulting  primitives  can  be  transferred  to  Supertab  to  be  used  in  generat¬ 
ing  a  finite  element  mesh. 

The  Mathematical  formulation  of  the  cur\es  and  surfaces  is  a  nonrational  uniform  B-spline 
(NURB).  This  representation  allows  one  cur\c  to  be  fit  to  any  number  of  points.  However,  only 
planar  outlines  or  cross-sections  are  allowed.  Therefore,  in  Gconiocl  and  Supertab,  a  user-defined 
NURB  must  always  lie  in  a  plane.  This  is  a  limitation  for  some  geometry  models.  For  example,  pro¬ 
peller  blades  are  usually  defined  in  terms  of  radial  cross-sections.  A  radial  cross-section  is  not 
allowed  in  Ceomod  or  Supertab. 

The  geometry  definition  task  of  the  pre/processing  module  of  Supertab  provides  another  alterna¬ 
tive  to  create  curves  and  surfaces  that  can  be  used  to  generate  mesh-areas  and  mesh-volumes.  This 
task  is  similar  to  object  modeling  in  Geomod;  however,  only  2-D  cross-sections  can  be  created.  Hav¬ 
ing  only  this  geometry  creation  capability  in  Supertab  is  sufficient  for  many  geometry  models,  making 
Geomod  unnecessary. 


PATRAN  FINITE  ELEMENT  MODEL  GENERATION 


Nodes  and  Elements 

In  Patran,  a  finite  clement  mesh  is  generated  on  the  lines,  patches,  and  hyperpatches  that  define 
the  geometry  model.  For  example,  plate  elements  arc  generated  on  a  patch.  Two  methods  arc  avail¬ 
able  to  create  nodes  and  elements. 

The  first  method  is  a  two  step  process.  In  the  first  step,  the  GFEG  command  is  used  to  create 
nodes  on  a  line,  patch,  or  hypcrpatch.  For  a  patch,  the  user  specifics  the  number  of  nodes  on  each 
of  two  adjacent  sides.  This  will  create  a  mapped  mesh  of  nodes  from  one  side  of  the  patch  to  the 
opposite  side.  The  GFEG  command  allows  for  biasing  the  nodes  and  some  limited  mesh  transition¬ 
ing.  The  second  step  uses  the  CFEG  command  which  specifies  the  type  of  element  (for  example: 
BAR,  QUAD,  HEX),  the  number  of  nodes  per  element,  and  a  configuration  code.  The 
configuration  codes  arc  used  to  differentiate  between  different  clement  types  with  the  same  number  of 
nodes,  such  as  CQUAD2  and  CQUAD4.  The  number  of  elements  generated  depends  on  the  pattern 
and  number  of  nodes  created  with  the  GFEG  command. 

The  second,  and  more  powerful,  method  for  generating  a  finite  element  mesh  was  implemented  in 
the  latest  version  of  Patran.  However,  the  method  applies  only  to  creating  nodes  and  quadrilateral  or 
triangular  elements  on  patches.  The  MESH  command  is  used  to  specify  the  type  of  clement,  the 
number  of  nodes  per  element,  the  configuration  code,  and  the  number  of  elements  along  all  four 
sides  of  the  patch  or  the  approximate  element  edge  length.  Each  side  can  have  an  arbitrary  number 
of  elements.  This  allows  for  whatcvci  mesh  transitioning  or  element  size  a  user  requires.  A  mesh 
smoothing  command  can  be  used  to  modify  the  resulting  pattern  of  nodes  and  elements  created  by 
the  MESH  command. 

The  GFEG,  CFEG,  and  MESH  commands  can  cieate  nodes  and  elements  on  more  than  one 
geometric  entity  at  a  time.  For  example,  a  geometry  model  consisting  only  of  patches,  might  lequiie 
that  the  GFEG  command  be  repealed  foi  each  set  of  patches  with  the  same  pattern  of  nodes,  and  the 
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CFEG  command  used  only  once  to  generate  the  same  type  of  elements  on  all  the  patches. 


Material  and  Physical  Properties,  Loads,  and  Boundary  Conditions 

In  Patran,  material  and  physical  properties,  loads,  and  boundary  conditions  are  applied  to  the 
finite  element  mesh  with  the  PMAT,  PFEG,  and  DFEG  commands.  Standard  material  models  are 
available  such  as  isotropic,  orlhotropic,  and  anisotropic.  The  physical  properties  specified  are  the 
same  as  would  be  required  on  a  NASTRAN  property  card.  Loads  and  boundary  conditions  can  be 
applied  to  the  nodes  and  elements  associated  with  a  geometric  entity,  a  specific  node  or  element,  or 
all  nodes  or  elements  lying  in  a  specified  plane.  Multi-point  constraints  (MFC’s)  can  also  be  gen- 
eiated.  Loads,  boundary  conditions,  and  physical  properties  can  be  defined  by  an  algebraic  function 
by  using  data  entities  or  the  FIELD  command. 


Equivalencing,  Optimization,  and  Model  Checking 

When  generating  nodes  on  adjacent  patches,  nodes  will  be  generated  along  the  common  boundary 
associated  with  each  patch.  Equhalencing  eliminates  one  of  the  coincident  nodes  between  adjacent 
geometric  entities  and  readjusts  thi  clement  connects  ity.  Optimization  performs  nodal  resequencing 
based  on  based  on  bandwidth  or  wavefroT.  This  capability  is  the  same  as  the  resequencing  pro¬ 
cedure  in  NASTRAN.  The  model  chvJJ  lg  capability  checks  the  aspect  ratio,  warp,  skew',  taper, 
normals,  and  duplication  of  2-D  elements,  if  an  element  does  not  pass  the  check,  the  element  can  be 
split  into  two  elements.  No  element  checking  is  available  for  3-D  elements. 


SUPERTAB  FINITE  ELEMENT  MODEL  GENERATION 


Nodes  and  Elements 

Supertab  usually  generates  a  finite  element  mesh  on  2-D  (mesh-areas)  and  3-D  (mesh-volumes) 
regions  defined  by  curves  and  surfaces.  The  curves  and  surfaces  come  from  the  object  modeling 
module  of  Geomod  or  the  geometry  definition  task  in  the  pre/postprocessing  module  of  Supertab.  A 
mesh-area  is  defined  by  a  closed  region  of  curves  and  a  mesh  volume  is  defined  by  a  closed  volume  of 
mesh-areas.  A  mesh-area  can  be  defined  by  any  number  of  curves  and  does  not  have  to  be  planar. 
This  is  a  very  powerful  tool  to  model  any  arbitrary  2-D  region  with  only  one  mesh-area.  The  same  is 
true  for  mesh-volumes.  For  a  3-D  model  only  one  mesh-volume,  made  up  of  multiple  mesh-areas,  is 
required. 

Three  methods  for  generating  nodes  and  elements  are  available.  The  first  method  is  mapped 
meshing,  similar  to  the  GFEG  and  CFEG  commands  in  Patran.  The  number  of  elements  along  two 
adjacent  “sides”  of  a  mesh-area  are  specified.  Because  mesh-areas  can  have  any  arbitrary  shape, 
mapped  meshing  is  more  appropriate  for  mesh-areas  that  arc  four  “sided”.  Each  “side”  of  a  mesh- 
area,  used  for  mapped-meshing,  can  be  composed  of  any  number  of  curves.  The  user  specifics  the 
number  of  elements  along  each  curve  of  the  two  adjacent  “sides”  of  the  mesh  area.  Biasing  of  the 
mesh  is  allowed.  The  element  is  specified  by  element  type  (rod,  beam,  plate,  membrane,  solid,  etc.), 
element  order  (linear,  parabolic,  cubic),  and  element  topology  (triangle,  quadrilateral,  wedge,  hex¬ 
ahedron,  etc.).  This  specification  does  not  distinguish  between  different  NASTRAN  elements  that 
have  the  same  element  type,  order,  and  topology,  such  as  COUAD2  and  COUAD4  elements. 

Free  mesh  genet ulion  is  the  second  method  for  generating  nodes  and  elements.  This  capability 
can  be  used  for  mesh-areas  and  mesh-volumes  and  is  similat  to  the  Patran  MESH  command.  To  use 
free  meshing,  a  global  element  size  for  a  mesh-area  or  mesh-volume  and  the  clement  type  is  specified. 
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Local  clement  sizes  and  the  number  of  elements  per  curve  can  also  be  specified.  Fiee  meshing  is  a 
very  powerful  capability,  but  care  should  be  taken  in  creating  mesh-areas  and  mesh-volumes  and  in 
specifying  element  sizes  so  that  the  resulting  mesh  is  acceptable. 

The  third  method  for  finite  element  mesh  generation  does  not  require  any  geometry  model. 
Nodes  can  be  created  by  entering  or  digitizing  XYZ  coordinates  and  copying,  reflecting,  or  generating 
nodes  between  existing  nodes.  Rectangular,  cylindrical,  or  spherical  coordinate  systems  can  be  used. 
Elements  can  be  created  by  picking  the  nodes  for  an  element  and  copying,  reflecting,  extruding,  or 
revolving  existing  elements.  This  method  for  finite  element  mesh  generation  can  be  used  with  nodes 
and  elements  created  with  either  of  the  other  two  methods. 


Material  and  Physical  Properties,  Loads,  and  Boundary  Conditions 

Material  and  physical  properties  are  generated  by  creating  tables  of  values  for  these  properties. 
Only  the  properties  that  Supertab  allows  are  permitted  in  the  tables,  which  may  not  be  sufficient  to 
define  all  NASTRAN  material  and  property  cards.  Both  types  of  properties  are  associated  with  an 
clement  when  the  clement  is  created.  Loads  and  boundary  conditions  are  applied  to  individual  nodes 
and  elements,  nodes  associated  with  elements,  or  nodes  and  elements  on  a  geometric  entity  (curve, 
mesh-area,  or  mesh-volume).  Load  values  can  be  defined  by  an  algebraic  function. 


Equivalencing,  Optimization,  and  Model  Checking 

Nodal  equivalencing  and  resequencing  in  Superlab  is  similar  to  that  in  Patran.  Nodes  can  also  be 
resequenced  by  sweeping  along  a  coordinate  axis  and  sorting  nodes  based  on  nodal  coordinates.  Ele¬ 
ment  checking  is  available  for  2-D  and  3-D  elements.  The  adaptive  meshing  task  in  Supertab  can  be 
used  to  refine  the  finite  element  mesh  based  on  element  checking  criteria. 


BULK  DATA  DECK  CREATION  AND  ANALYSIS  RESULTS  TRANSLATION 


Patran 

The  ultimate  goal  of  any  finite  element  pre-  and  postprocessor  is  to  create  input  foi  an  analysis 
program  and  to  tranlate  results  for  the  postprocessor.  The  programs  used  by  Patran  to  accomplish 
this  are  PATCOS  (PATran  to  COSmic/nastran  translator)  and  COSPAT  (COSmic/nastran  to 
PATran  translator).  PATCOS  and  COSPAT  (refs.  7-9)  arc  developed  and  supported  by  PDA 
Engineering.  Although  PDA  is  currently  updating  the  translators,  the  current  \ersions  of  PATCOS 
and  COSPAT  have  several  bugs  and  have  not  been  updated  to  include  many  bulk  data  cards  that  are 
new  or  which  were  missing  from  previous  versions.  Fortunately,  when  the  Numerical  Structural 
Mechanics  Branch  originally  obtained  COSPAT  and  PATCOS,  PDA  supplied  the  Fortran  source 
code,  which  allowed  us  to  bring  COSPAT  and  PATCOS  up-to-date  by  implementing  many  bug  fixes, 
additions,  and  enhancements. 

To  create  a  bulk  data  deck,  a  Patran  neutral  file  must  first  be  created.  The  neutral  file  is  an 
ASCII  file  containing  all  geometric  and  finite  element  model  information  and  is  generated  by  Patran. 
PATCOS  reads  the  neutral  file  and  generates  a  bulk  data  deck.  If  a  new  type  of  bulk  data  card  is 
required,  then  PATCOS  has  to  be  modified.  It  is  also  possible  to  generate  elements  in  Patran  that 
are  not  supported  by  NA.STRA.N  or  PATCOS,  such  as  a  15  noded  wedge.  The  user  has  to  be  aware 
of  the  capabilities  of  PATCOS  when  generating  a  finite  element  model. 
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COSPAT  serves  two  functions.  The  first  is  to  read  in  a  NASTRAN  bulk  data  deck  and  generate 
a  Patran  neutral  file.  If  COSPAT  doca  not  recognize  a  particular  NASTRAN  card  type,  then  nothing 
is  written  to  the  neutral  file.  The  resulting  neutral  file  can  be  read  into  Patran.  Once  in  Patran,  the 
finite  element  model  can  be  displayed  and  used  for  postprocessing. 

The  other  function  of  COSPAT  is  to  translate  NASTRAN  results  into  a  format  that  can  be  read 
into  Patran.  COSPAT  reads  in  displacement  and  stress  data  blocks  that  are  written  to  a  NASTRAN 
UT1  file  with  an  OUTPUT2  statement.  COSPAT  generates  up  to  three  different  Patran  results  files. 
One  file  contains  nodal  translations  and  rotations.  The  second  file  contains  element  centroidal 
stresses.  The  third  file  is  generated  only  if  NASTRAN  computes  nodal  stresses  (CIIIEXi, 
CQUAD2,  CTRIA2,  etc.).  Any  of  these  three  files  can  be  used  in  Patran  to  visualize  analysis 
results.  With  a  user-written  postprocessor,  am  type  of  data  can  be  written  in  the  Patran  results  files 
format  so  the  data  can  be  visualized  with  Patran. 


Supertab 

To  generate  a  bulk  data  deck  in  Supertab,  the  finite  element  model  must  first  be  written  to  an 
I-DEAS  Pearl  database.  The  Pearl  database  is  read  by  a  program  that  generates  the  bulk  data  deck. 
Using  the  Pearl  database  to  create  the  bulk  data  deck  is  a  time-consuming  procedure.  A  more 
efficient  way  to  generate  a  bulk  data  deck  might  be  to  create  it  directly  from  the  model  file  or  from  an 
I-DEAS  universal  file.  A  universal  file  is  an  ASCII  file  containing  the  geometry  model,  finite  element 
model,  analysis  results,  and  viewing  parameters.  A  universal  file  is  similar  to  a  Patran  neutral  file. 
Because  Supertab  cannot  differentiate  between  a  CQUAD1,  CQUAD2,  and  CQUAD4  element,  all 
linear  quadrilateral  thin  shell  elements  will  be  translated  to  a  CQUAD2  clement.  This  problem  also 
affects  other  element  types.  The  user  has  to  edit  the  bulk  data  deck  to  change  elements  to  the 
desired  element  type.  The  source  code  for  the  program  which  generates  the  bulk  data  deck  is  not 
available. 

To  read  in  results  from  a  NASTRAN  analysis  the  data  loader  module  of  Supertab  is  used.  Simi¬ 
lar  to  PATRAN,  the  NASTRAN  data  loader  reads  data  blocks  that  are  written  to  a  NASTRAN 
UT1  file  with  an  OUTPUT2  statement.  In  addition  to  displacement  and  stress  data  blocks,  data 
blocks  for  strains,  forces,  strain  energy,  and  eight  others  which  define  the  finite  element  model  are 
required:  CSTM,  GPL,  GPDT,  EPT,  MPT,  GEOM2,  GEOM3,  and  GEOM4.  CSTM  is  generated 
only  when  a  coordinate  system  definition  card  is  included  in  the  bulk  data  deck.  If  the  default  coor¬ 
dinate  system  is  being  used,  then  a  dummy  coordinate  card  must  be  included  in  the  bulk  data  deck  to 
force  the  generation  of  the  data  block  CSTM.  Although  the  user  might  not  be  interested  in  a  partial 
lar  type  of  output  (for  example,  strain  energy),  the  chta  block  for  that  type  of  output  is  still  required. 

The  NASTRAN  data  loader  creates  an  I-DEAS  universal  file  which  can  be  read  into  Supertab. 
The  analysis  results  can  then  be  used  for  postprocessing.  The  data  loader  cannot  read  a  bulk  data 
deck  to  create  a  universal  file  of  the  finite  element  model.  The  source  code  for  the  data  loaders  is 
available  from  SDRC. 


VISUALIZATION 


Both  Patran  and  Supertab  have  similar  capabilities  for  visualizing  the  geometry  model,  finite  cle 
ment  model,  and  analysis  results.  There  arc  an  infinite  number  of  ways  to  display  either  type  of 
model.  Tile  user  has  eontioi  ovei.  \iewing  angles,  which  pails  of  the  model  are  to  be  displayed,  the 
color  assigned  to  different  entities  (cuivcs,  mesh-areas,  patches,  element  types,  etc.),  how  to  draw  ail 
entity  (shrink  elements,  a  circle  or  dot  for  a  node,  etc.),  entity  labels,  display  options,  etc.  The 
display  option  can  be  wireframe,  hidden  line,  continuous  tone  (Supertab)  or  fill-hide  (Patran),  or 
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shaded  image.  For  graphics  terminals  and  vorkstations  with  hardware  3-D  rotations  and  shading,  the 
user  should  be  able  to  dynamically  rotate  a  model  drawn  with  any  display  option.  Patran  cannot 
display  a  shaded  image  of  a  finite  element  model.  Supcrtab  has  an  advanced  display  capability  know'll 
as  ray  tracing.  Ray  traced  images  can  have  shadows,  reflections,  and  transparency.  However,  ray 
(racing,  as  implemented  in  Supertab,  is  extremely  computationally  intensive  (several  days  for  one 
image  on  an  Apollo  DN5S0-T). 

To  visualize  analysis  results,  several  types  of  display  options  are  available.  They  include: 
deformed  geometry,  animation  of  modal  vibrations,  contour  plots,  color  fringe  plots,  vector  plots, 
fill-hide  plots,  beam  shear  and  moment  diagrams,  and  XY  graphs.  The  appropriate  types  of  display 
options  can  be  dynamically  rotated.  Various  attributes  of  these  types  of  displays  can  be  set  by  the 
user.  Patran  can  assign  colors  to  elements  based  on  analysis  results  or  a  value  such  as  element  or 
material  ID.  Currently,  COSPAT  does  not  generate  Patran  beam  results  files  that  can  be  used  for 
beam  shear  and  moment  diagrams  in  Patran. 


USUI  INTERFACE,  DOCUMENTATION,  AND  BUGS 


Patran 

The  Patran  user  interface  is  a  mixture  of  a  command-driven  and  menu-driven  input  system.  The 
user  interface  can  be  used  in  a  command  line  mode  or  on-screen  menu  mode  In  the  command  line 
mode,  the  user  enters  whatever  commands  are  desired.  However,  to  do  some  tasks,  a  menu  pick  is 
required.  To  pick  a  particular  menu  item,  the  user  enters  the  number  associated  with  it.  Some  tasks 
can  be  executed  by  entering  a  command  or  using  menu  picks  with  the  same  results.  Commands  are 
also  available  to  jump  to  particular  menus.  In  the  on-screen  menu  mode,  menu  items  are  chosen  by 
using  the  cursor  (controlled  by  a  mouse,  thumbwheels,  etc.)  to  pick  from  a  dynamic  menu.  Some 
commands  still  have  to  be  entered  in  the  on-screen  menu  mode.  Other  commands  can  be  set  by 
using  the  cursor.  A  less  ambiguous  and  more  structured  user  interface  would  be  desirable  for  Patran. 

Most  commands  in  Patran  can  be  divided  into  several  catagories:  commands  for  creating 
geometric  entities  (GR,  LI,  PA,  HP),  commands  for  creating  the  finite  clement  model  (GFEG, 
CFEG,  PFEG,  DFEG,  etc.),  and  commands  prefaced  by  SET,  SHOW,  or  RUN.  The  SET  and 
SHOW  commands  are  used  to  set  and  show  the  value  of  almost  300  parameters.  Generally,  only  a 
small  subset  of  the  parameters  might  have  to  be  set.  For  example,  labels  can  be  turned  on  by  enter¬ 
ing  SET, LABEL, ON.  Currently,  there  are  over  50  RUN  procedures.  The  RUN  proceduies  allow 
the  user  to  do  such  things  as  generate  hidden  line  plots,  assign  colors  to  elements,  or  compute  con¬ 
tour  line  values. 

The  text  that  is  entered  for  many  of  the  commands,  SET/SHOW  parameters,  and  RUN  pro¬ 
cedures  is  not  obvious.  If  the  user  did  not  know  how  to  set  the  number  of  line  segments  plotted  per 
parametric  cubic  line,  entering  SET,NLSPPC,10  would  not  be  obvious.  Therefore,  documentation  is 
essential.  Patran  documentation  is  divided  into  major  tasks  such  as:  creating  geometric  entities, 
creating  a  finite  clement  model,  visualizing  models  and  results,  a.-id  using  SET,  SHOW,  and  RUN 
commands.  Generally,  a  description  in  words  and  graphics  is  given  alphabetically  for  .each  command 
in  a  task.  There  are  also  functional  listings  of  SET,  SHOW,  and  RUN  commands.  For  some  types 
of  commands  there  are  conceptual  descriptions  of  what  can  be  done,  along  with  related  commands 
that  might  be  used.  The  documentation  is  a  complete  reference  of  any  capability  or  option  in  Patran. 
When  running  Patran,  a  user  may  access  on  line  help  consisting  of  command  descriptions. 

No  program  of  Patran’s  size  is  without  bugs.  PDA  publishes  a  technical  bulletin  every  month  or 
two  that  lists  a  few  known  bugs  and  possible  work-arounds.  The  release  notes  for  a  new  version  of 
Patran  contain  a  list  of  bugs  that  have  been  fixed.  The  user  does  not  have  a  list  of  all  known  bugs. 
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Supertab 

Supertab’s  user  interface  is  a  tree-structured  menu-driven  system.  The  user  picks  a  menu 
response  which  results  in:  (1)  another  menu,  (2)  a  required  alphanumeric  response,  oi  (3)  a  system 
action  (for  example,  an  element  is  generated).  Menu  items  can  be  picked  by  using  the  cursor  or  by 
typing  in  the  command.  More  than  one  command  can  be  entered  at  a  time,  allowing  thv  user  to 
move  through  several  menus  at  one  time.  Menu  picks  that  requite  an  alphanumeiic  response  (file 
names,  coordinate  values,  various  parameters,  etc.),  generally  have  a  default  \alue  which  is  used  if 
the  user  hits  the  return  key.  In  addition  to  the  current  menu,  the  user  can  pick  from  a  global  menu 
that  has  commands  that  can  be  executed  anytime  within  a  module. 

Generally,  every  task  in  Supcrtab  has  its  own  main  menu  with  many  submenus.  The  menu  system 
can  be  confusing.  If  the  user  knows  what  he  wants  to  do,  it  is  not  always  obvious  what  the  command 
name  might  be  or  under  what  menu  to  find  the  command.  As  part  of  the  standard  documentation, 
menu  guides  are  provided  which  list  all  the  commands  for  each  menu  in  a  hierarchical  form.  The 
standard  manuals  do  not  have  an  explanation  of  all  of  the  commands.  Rather,  the  manuals  introduce 
the  use  of  Supcrtab  conceptually  and  through  step  by  step  examples.  This  is  a  good  method;  how¬ 
ever,  the  manuals  are  almost  useless  if  a  user  is  trying  to  determine  what  a  specific  command  does. 
Optional  reference  manuals  are  available  that  give  a  description  of  each  command.  When  running 
Supertab,  a  user  may  access  on-line  help  consisting  of  command  descriptions,  a  command  search 
capability,  and  some  c  «i  view's  and  methods. 

As  with  Patran,  Supertab  is  not  without  bug'.  SDRC  publishes  a  quarterly  update  of  all  known 
bugs  and  work-arounds  and  hints,  limitations,  and  extended  documentation  for  some  features. 
Although  the  list  of  bugs  is  extensive,  it  is  not  complete  because  not  all  bugs  are  icported  to  SDRC. 


OTHER  FEATURES 


Patran 

When  Patran  is  run,  a  session  file  is  generated  containing  everything  that  was  entered  at  the  key¬ 
board.  This  file  can  be  used  to  reconstruct  the  model  or  to  model  objects  with  similar  shape  but 
different  dimensions.  For  example,  a  session  file  that  made  hyperpatches  defining  a  cylinder  could  be 
edited  to  change  the  radius  and  length.  The  session  file  could  be  rerun  to  create  a  new  model  with 
new  dimensions.  A  session  file  can  only  be  input  at  the  beginning  of  Patran.  If  a  file  of  commands  is 
to  be  entered  while  already  in  Patran,  the  “read  file”  option  under  the  geometry  menu  can  be  used. 

Macros  can  be  defim  1  which  create  a  user-defined  text  string  that  will  represent  several  com¬ 
mands.  A  file  (OPTION. SET)  is  executed  everytime  a  new  Patran  database  is  opened.  This  file  can 
be  used  to  configure  the  user’s  working  environment  and  to  define  macios.  A  replay  file  can  be  gen¬ 
erated  in  Patran  that  contains  all  the  graphics  that  appear  on  the  terminal.  This  file  can  be  repiayod 
later  with  a  utility  program.  A  hardcopy  file  can  generated  and  processed  with  another  utility  pio- 
grani  that  sends  the  graphics  to  a  plotter  fCalcomp,  laser  printer,  etc.). 

A  named  component  is  an  entity  that  is  a  user-defined  collection  of  geometiic  and/or  finite  ele¬ 
ment  model  entities.  This  pro\idcs  a  simple  method  to  refer  to  a  large  number  of  entities  of  different 
types.  New  named  components  can  be  created  by  mirroring,  rotating,  scaling,  or  translating  existing 
named  components. 
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Supertab 

When  Supertab  is  run,  a  program  file  can  be  generated.  Similar  to  a  Patran  session  file,  a  pro¬ 
gram  file  contains  everything  that  was  entered  at  the  keyboard.  A  program  file  can  be  input  to  Super¬ 
tab  at  any  time.  In  addition  to  Supertab  commands,  the  program  file  can  contain  Fortran-like  state¬ 
ments  including  arithmetic  operators,  mathematical  functions,  character  strings,  and  variables,  as  well 
as  commands  to  extract  data  from  Supertab.  Program  files  in  this  language  can  be  written  for  any 
application  and  executed  from  Supertab.  The  program  file  can  contain  “read”  and  “write”  state¬ 
ments  to  prompt  the  user  for  input,  in  the  same  way  Supertab  prompts  for  input. 

Macros  can  be  defined  as  they  are  defined  in  Patran.  A  user-defined  program  file 
(USERPROF.PRG)  is  executed  everytime  a  new  module  is  entered  in  I-DEAS.  A  picture  file  can  be 
generated  of  a  graphic  image  and  replayed  within  Supcrtab  or  with  a  utility  program  and  sent  to  a 
plotter. 

Supertab  has  an  adaptive  meshing  capability  which,  given  the  finite  element  analysis  results,  will 
refine  the  finite  element  mesh  based  on  selected  criteria.  For  example,  a  region  of  a  mesh  with  high 
stress  gradients  could  be  refined  to  have  a  higher  mesh  density  in  that  region. 


CONCLUSIONS 

Either  Patran  or  Supertab  can  be  used  successfully  as  a  pre-  and  postprocessor  to 
COSMIC/NASTRAN.  Each  program  has  advantages  and  disadvantages.  The  user  will  have  to 
decide  which  program  is  better  depending  on  his  finite  element  pre-  and  postprocessing  needs.  My 
personal  opinion  is  that  Supertab  and  Geomod  are  superior  to  Patran.  However,  if  only  simple  finite 
clement  models  are  required,  Patran  might  be  a  better  program  to  use  once  the  user  has  become  fam¬ 
iliar  with  Patran.  Both  programs  need  a  convenient  capability  for  fitting  a  surface  through  a  specified 
set  of  points. 


Patran 

The  solid  primitive  capability  in  Patran  would  be  more  useful  if  the  primitives  could  be  used 
directly  for  finite  element  mesh  generation.  The  finite  element  model  generation  capabilities  are  sim¬ 
ple  and  straightforward.  The  MESH  command  should  be  extended  to  handle  generating  solid  ele¬ 
ments  on  hyperpatches.  The  bulk  data  deck  generation  and  results  translation  processes  are  fast  and 
efficient  provided  the  user  has  access  to  the  source  code  for  PATCOS  and  COSPAT.  PDA 
Engineering  should  provide  up-to-date  versions  of  PATCOS  and  COSPAT  so  that  the  user  does  not 
have  to  become  involved  with  the  source  code.  The  user  interface  leaves  a  lot  to  be  desired.  A  new 
user  will  find  it  difficult  to  come  up  to  speed  to  generate  even  a  moderately  complex  finite  element 
model. 


Supertab 

The  solid  modeling  capabilities  of  Geomod  are  very  powerful.  However,  the  restriction  that 
cross  sections  be  planar  is  a  limitation.  The  finite  element  mesh  generation  capabilities  of  Supertab 
are  .Jen  very  powerful;  however,  not  all  element  types  can  be  generated.  Creating  an  I-DEAS  Pearl 
database  slows  the  bulk  data  deck  creation  process.  The  user  should  not  have  to  generate  NAS- 
TRAN  data  blocks  that  define  the  finite  clement  model  to  do  postprocessing  of  analysis  results.  The 
user  interface  is  very  good;  however,  a  user  can  get  lost  in  the  tree-structured  menu-driven  input 
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system.  The  user  interface  allows  a  new  user  to  come  up  to  speed  very  quickly  to  generate  complex 
geometry  and  finite  element  models. 


REFERENCES 

1.  “PATRAN  Plus  User  Manual,”  PDA  Engineering,  Costa  Mesa,  CA,  1987. 

2.  “Getting  Started  With  I-DEAS,”  SDRC,  Milford,  OH,  1988. 

3.  “I-DEAS  User’s  Guide,”  SDRC,  Milford,  OII,  1988. 

4.  “I-DEAS  (.  aomod  User’s  Guide,”  SDRC,  Milford,  OH,  1988. 

5.  “I-DEAS  Supertab  User’s  Guide,”  SDRC,  Milford,  OH,  1988. 

6.  “NASTRAN  User’s  Manual,”  NASA  SP-222(06),  Washington,  DC,  1983. 

",  “PAT/COSMIC-NASTRAN  Application  Interface  Guide,”  PDA  Engineering,  Costa  Mesa,  CA, 
1984. 

8.  Bender,  L.C.,  and  M.P.  Johnson,  “Enhancing  Your  COSMIC  NASTRAN  Usage  with 
PATRAN,”  Sixteenth  NASTRAN  User’s  Colloquium,  NASA  CP-2505,  National  Aeronautics  and 
Space  Administration,  Washington,  D.C.,  pp.  31-38,  April  1988. 

9.  Libby,  D.IL,  “COSMIC/NASTRAN  -  PATRAN  Interface,”  Thirteenth  NASTRAN  User’s  Collo¬ 
quium,  NASA  CP-2373,  National  Aeronautics  and  Space  Administration,  Washington,  D.C.,  pp. 
133-151,  May  1985. 


101 


INCREASING 

MARKETABILITY 

AND 

PROFITABILITY 
OF  PRODUCT  LINE  THRU 

PATRAN  &  NASTRAN 


ART  HYATT 

DEUTSCH  METAL  COMPONENT; 


mrasaig 

METAL  COMPONENTS 


14800  S.  Figueroa,  Gardena,  CA  90248  (213)  323-6200 


102 


The  above  photo  shows  the  B •  1 B 
Bomber.  This  is  one  of  the  many 
types  of  aircraft  that  uses  the 
Deutsch  fittings. 
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FITTING  DESIGN 

The  upper  photo  shows  a  cut-a-way 
Permaswage®  fitting  connecting  together 
two  piecesof  tubing.The  fitting  isslid  into  the 
tubes  and  then  swaged  or  crimped  resulting 
in  a  permanent  light  weight  connection. 
Completed  connections  feature  2  seals  on 
each  side  cf  the  fitting.  One  is  a  positive 
metal-metal  seal  the  other  is  a  silicone  back¬ 
up  seal. 


The  lower  photo  shows  the  Pyplok®  fitting 
and  pipe  connecting  system  which  is  similar 
in  concept  to  Permaswage®,  but  is  used  on 
piping  systems  in  the  Ship  Building/Ship 
Repair  and  Petrochemical  Industries.  Both 
systems  are  available  in  the  standard  Pipe/ 
Tube  fitting  configuration,  such  as;  Coupling, 
Tees,  Elbows,  Reducers,  etc. 
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SWAGE  TOOL 


This  Swaging  Tool  is  one  of  the  models  of  the 
product  line  which  is  the  subject  of  the 
paper.  There  are  6  different  models  in  the 
product  line:  Model  5,  10,  20,  30,  40,  and 
Model  55.  For  simplicity  in  this  paper  only 
one  model  will  be  discussed.  The  swaging 
tooi  which  performs  the  swaging  or  crimping 
of  these  fittings  is  hydraulically  actuated. 


The  photo  above  shows  this  tool  in  operation. 
The  upper  left  hand  slide  shows  the  top  portion 
of  the  tool  which  contains  a  slotted  Die  which 
transforms  axial  or  linear  force  from  an  axial 
direction  to  radially  acting  force.  The  next 
slide  shows  a  detail  of  this  Swage  Die. 
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SWAGING  DIE 


his  is  a  3  "D"  view  of  the  slotted  die.  This  is  a 
ather  unique  design.  It  transforms  axial 


force  to  radial  force.  The  fitting  is  placed 
inside  for  Swaging. 
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EXISTING  SWAGE  TOOL 

This  slide  shows  the  previous  generation  Tool.  Pressurized  oil  enters  at  the  bottom  of  the  Tool  and 
actuates  the  upper  and  lower  pistons.  These  pistons  force  the  lower  die  block  against  the  slotted 
die  which  performs  the  swaging  operation. 


DEsidN  ObJeOtIve: 

•  To  double  the  operational  cycle  life  of  the  product 

•  MCD  felt  that  with  some  redesign  of  the  tool,  cycle  life  could  be  substantially  extended. 
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APPROACH  USED  TO 
ACCOMPLISH  DESIGN  OBJECTIVE 

•  First,  we  submitted  the  existing  Swage  Tool  to  finite  element  analysis. 

•  Second,  we  determined  the  stress  level  required.  This  was  based  on  a  S-N  Curve  for  the 
selected  material  and  the  operational  cycle  life  requirement 

•  Third,  we  concentrated  our  efforts  on  the  highly  stressed  areas  noted  above. 

•  The  first  area  analyzed  was  "A",  the  force  on  this  area  is  1  /2  the  total  tonnage  of  the  tool.  Model 
55  tool  would  have  a  total  force  of  1 1 0,000#  of  which  55,000#  would  be  concentrated  under 
worst  conditions  on  this  area. 

e  "8"  is  the  reaction  area 

•  "C"  reacts  the  forces  trhu  the  Strut  and  Top  Cap  back  into  the  cylinder. 

•  "D"  is  the  area  where  the  Top  Cap  Threads  mate  the  cylinder. 

•  These  areas  will  be  discussed  in  detail  starting  with  "A". 
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AREA  “A” 


1  st  the  radius  was  increased  as 
shown  above.  This  reduced  the 
stress. 


2nd  the  contact  angle  which  was 
0°,  was  changed.  This  reduced 
the  stress  some  more.  It  should 
be  noted  at  this  point,  different 
angles  were  tried  from  0°-45°. 
The  optimim  angle  was  found  to 
be  30°. 


3rd  the  compression  area  was 
then  made  smaller.  Again  this 
reduced  the  moment  and  the 
associated  stress. 
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AREA  “A”  CONT 


4th  the  contact  area  was  reduced 
and  the  radius  moved  inward. 
This  too  lowered  the  stress  level 
because  the  area  across  the  high 
stress  section  was  increased.  The 
contact  stress  was  perfoi  med  by 
hand  calculations.  ' 


5th  the  overall  size  was  reduced. 
This  was  possible  because  the 
siress  level  had  been  substan¬ 
tially  reduced  in  all  areas. 


The  actual  final  FEA  are  shown  on  the  following  slides. 
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161294 


112 


THE  SECOND  AREA  ANALYZED  WAS  THE 
REACTION  PRESSURE  AREA  AT  "B” 


2nd  the  contact  angle  which  was 
1 0°,  was  changed  to  the  optimum 
angle  of  30°.  The  contact  area 
was  also  changed  again.  Both  of 
these  changes  lowered  the 
stresses. 


3rd  The  radii  on  both  parts  were 
made  more  generous  &  blended 
together.  This  again  reduced  the 
stress  not  only  on  the  head,  but 
also  the  cylinder.  The  result  was 
a  smaller  and  lightercylinder  and 
head.  Actual  FEA  slides  follow. 
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THIS  IS  A  MAGNIFIED  UIEU  OF  LOUER  AREA 
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DISPLAY  CONTROL?  I.PLO/t  2. FILL  HIDE  3. LABEL  CONTROL  A. END 


4  PIECE  DESIGN 


1  PIECE  DESIGN 


THE  3RD  AREA  ANALYZED  WAS  “C” 

Knowing  the  forces  involved  it  was  an  easy  step  to  go  from  a  (4)  piece  design,  to  a  (1 )  piece  design. 
The  Strut,  Knurled  Nut,  Top  Cap  and  Cylinder  were  all  made  part  of  the  Cylinder.  This  completely 
eliminated  3  parts.  Finite  elements  again  checked  all  high  stress  areas.  The  first  analysis  on  the  new 
design  found  several  areas  which  had  excessively  high  stress.  Adding  more  material  to  the  O.D.  of  the 
Cylinder  and  changing  to  a  larger  radius  as  shown  resulted  in  acceptable  stress  levels. 
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THE  4TH  AREA  ANALYZED  WAS  “D” 

Lab  tests  showed  that  premature  failure  occurred  at  the  1  st  and  2nd  thread  area  before  we  could 
reach  the  required  cycle  life.  To  solve  the  problem  we  made  the  following  engineering  modifications. 

FIRST  —  More  material  was  added  to  the  O.D.  of  the  cylinder  where  the  failure  occurred. 
Repeated  tests  showed  very  little  improvement  in  the  cycle  life. 


ACTUAL  THD .  LENGTH 


<oO%  LOAD 


\ _ 

THD  LENGTH  FOR  FEA 


SECOND  —  The  thread  area  was  submitted  to  finite  element  analysis.  The  analysis  was  made  for 
only  2  threads  and  was  in  2  "D".  30%  of  the  load  was  applied  to  each  thread.  This 
loading  was  applied  because  studies  have  shown  that  60%  of  the  load  on  a  screw 
thread  is  concentrated  on  the  first  2  threads. 

FEA  showed  the  weak  area  up  immediately.  It  was,  as  expected,  at  the  root  of  the 
thread. 
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MOD.  FEMALE  ROOT  RAD. 


Mbl 


MALE  THD.  MAJOR  01  A. 


rHIRD  —  Using  this  configuration  and  finite  element  analysis  it  was  found  that  a  modified  UNJ 
thread  with  the  thread  root  radius  at  the  bottom  of  the  cylinder  (female)  thread,  as  well 
as,  on  the  male  thread,  greatly  reduced  the  root  stress  level.  This  now  became  a 
modified  thread  because  the  standard  UNJ  thread  only  specified  that  the  male  have  a 
root  radius.  With  this  female  root  radius  it  was  also  necessary  to  modify  the  O.D.  of  the 
male  thread  to  prevent  interference.  Prototype  models  were  then  made,  however,  we 
still  did  not  meet  our  required  100,000  cycle  life  requirement. 
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■* 


LARGER  THAN  STD.  UNJ  RAD. 
WITH  SMALL  CONTACT  AREA 


FOURTH  —  The  next  step  was  to  return  to  FEA  which  showed  that  an  increase  in  the  root  radius 
over  and  above  the  recommended  UNJ  radius  would  again  lower  stress  levels.  This 
was  then  tested  and  it  was  proven  to  add  significantly  to  the  cycle  life.  This  solved  the 
tool  cycle  life  problem,  however,  because  the  area  of  contact  was  reduced  the  design 
could  be  a  problem  in  manufacturing.  If  manufacturing  made  the  slightest  deviation  in 
thread  configuration  failure  could  occur  in  the  shear  mode. 


120 


THREADS 


FIFTH  —  TAPERED  PITCH  DIAMETER  Asafinalstep.wefoundanarticlewrittenforASMEon, 
"Effect  of  taper  on  screw-thread  load-distribution".  This  article  basically  states  that  a 
.006  inch/inch  taper  of  the  pitch  dia  would  result  in  a  fairly  distributed  thread  load.  This 
design  was  first  programmed  on  the  CAD  System  and  then  subjected  to  finite  element 
analysis.  Results  looked  outstanding.  Models  were  made  and  subject  to  test.  The 
100,000  cycle  requirement  was  not  only  met  but  continuous  cycle  testing  went  well 
beyond  the  1 00,000  cycles  without  any  signs  of  failure  In  this  area.  It  should  be  noted 
at  this  point  that  the  cylinder  wall  was  also  reduced.  The  amount  of  reduction  was 
almost  50%  less  than  the  original  concept.  This  whole  exercise  proves  that  adding 
material  does  not  necessarily  make  for  a  stronger  product.  The  following  slides  show 
the  final  FEA  results. 
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WEIGHT  1.2.3  LDS 


r—  2.  sao — *1 


BEFORE  AFTER 


;INAL  DESIGN 

e  above  slide  shows  the"before  and  after”  configuration  after  incorporating  the  aforementioned 
anges.  The  right  hand  slide  shows  the  final  design. 

e  2  units  shown  have  the  same  indentical  swaging  force  and  swage  the  same  size  fitting.  The 
arall  height  had  changed  from  approximately  10"  to  5Vi\  The  cylinder  diameter  from  3.235  to 
67  diameter.  The  head  width  from  2.180  to  1.958  and  the  weight  from  12.5  pounds  to  4.0 


is  new  design  with  its  fewer  and  smaller  parts  has  increased,  in  numerous  areas,  the  profitability 
d  producibility  of  this  product  line. 
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IMPORTANCE  OF  SIZE  &  WEIGHT 


rhis  smaller  size  design  which  we  were  able  to  generate  was  very  important  to  the  marketing 
department.  The  smaller  configuration  allowd  the  tooling  to  perform  the  swaging  operations  in  very 
:onfined  and  cramped  areas  such  as  would  be  found  in  military  aircraft  and  piping  banks  aboard 
ship.  While  the  original  objective  was  to  increase  operational  cycle  life  it  soon  became  very  evident 
:hat  the  smaller  size  and  weight  was  a  definite  plus  in  marketing  this  product. 

ENGINEERING  INNOVATIONS 

Mthough,  finite  element  analysis  played  a  large  part  in  accomplishing  the  design  objectives  there 
vere  some  engineering  innovations  which  also  contributed  to  the  success  of  this  product.  These 
terns  include  the  slide-on  type  head  feature,  the  material  selection,  the  tapered  thread  and  the 
:hange  from  5500  psi  to  1 0,000  psi  hydraulic  pressure.  All  other  changes  were  directly  attributed  to 
inite  element  analysis. 
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17.  135 


COMPLETE  PRODUCT  LINE 

he  existing  models  are  shown  in  the  shaded  area.  The  new  models  are  shown  in  the  white  area 
ithin  the  shaded  areas. 

SUMMARY 

/e  started  with  the  design  objective  to  increase  the  operational  cycle  life  of  the  Swaging  Tool.  To 
ccomplish  this  increase  in  cycle  life  without  increasing  the  size  or  weight  of  the  tool  would  have 
een  engineering  achievement.  However,  we  not  only  incrased  the  operational  cycle  life  between  2 
d  1 0  x  but  simultaneously  we  decreased  the  size  and  weight  of  the  Swage  Tool  by  about  50%.  This 
ccomplishment  now  becomes  an  outstanding  engineering  achievement. 

his  achievei  ,ent  was  only  possible  because  of  the  computerized  Patran,  Nastran  and  Medusa 
'rograms. 


128 


DFTWARE  &  HARDWARE  USED  FOR  PROGRAM 


le  analysis  shown  in  this  paper  was  performed  at  the  Deutsch  Metal  Components  Division  using 
e  Patran  &  Cosmic/Nastran  programs.  The  geometry  was  generated  on  Medusa  Program  and 
ansferred  to  Patran  for  analysis.  The  computer  used  was  a  Prime  2655.  Hardcopies  of  the  finite 
ement  model  and  analysis  results  were  obtained  by  Patran  through  a  Tektronix  41 1 5  terminal 
aoked  to  a  Tektronix  4682  Ink-jet  plotter. 


EFERENCE: 

.oeckly,  E.E.,  and  Macke,  H.I.,  "Effect  of  Taper  on  Screw-Thread  Load  Distribition.”  Transaction 
74,  A.S.M.E.,  1 952,  pg.  1 03. 
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The  Use  of  Cosmic  Nastran  in  an  Integrated 
Conceptual  Design  Environment 


By  Gil  White,  Intergraph  Corporation 


Conceptual  engineering  is  increasing  with  the  advent  of  the  engineering 
workstation  as  a  viable  platform  for  numerical  analysis,  including  finite 
element  analysis.  Traditionally,  engineers  have  used  finite  element  analysis 
after  the  detailed  design  stage  had  oegun.  There  were  exceptions  in  the  area 
of  load  path  models  which  were  used  early  in  the  design  process.  New 
hardware  platforms  and  software  techniques  now  bring  tools  for  finite  element 
analysis  into  the  mainstream  conceptual  design  phase.  A  survey  by  a  major 
British  aerospace  firm  determined  that  the  first  five  percent  of  design  time 
dedicates  an  astounding  eighty  percent  of  the  project  cost.  By  using  COSMIC 
NASTRAN  early  in  the  design  phase,  the  total  project  cost  can  be  reduced. 

The  development  of  automated  meshing  routines  that  work  within  COSMIC 
NASTRAN  pre  processors  also  reduce  the  cost  associated  with  finite  element 
analysis  and  helps  bring  this  tool  into  the  conceptual  design  environment. 

Even  though  specialized  finite  element  analysis  should  be  reserved  for 
professional  engineers,  there  is  a  place  for  less  experienced  users  in  this  area. 
The  development  of  advanced  meshing  routines  also  allow  the  user  to  have 
confidence  m  the  finite  element  mesh.  Many  systems  also  optimize  the 
element  shapes.  Other  features  that  are  becoming  popular  with  engineers  and 
designers  are  adaptive  refinement  and  geometry  based  analysis.  Both  of  these 
are  made  possible  by  systems  that  have  a  common  database  for  design, 
engineering  and  manufacturing.  By  using  this  same  database,  the  finite 
element  analysis  does  not  have  to  redefine  the  model.  This  reduces  the  chance 
for  errors  and  helps  bring  a  product  to  market  faster.  These  features  are 
bringing  the  use  of  finite  element  analysis  into  mainstream  mechanical 
conceptual  design. 

Intergraph  Corporation  has  recently  developed  a  suite  of  tools  for  mechanical 
computer  aided  engineering  (MCAE).  These  tools  break  from  the  traditional 
design  -  analysis  relationship  in  that  both  design  and  engineering  data  are 
retained  in  a  single  database.  This  concept,  which  is  termed  geometry-based 
analysis,”  makes  the  analytical  FEA  model  an  extension  of  the  design 
geometry.  To  the  COSMIC  NASTRAN  user,  this  means  all  model  attributes 
such  as  loads,  boundary  conditions,  materials  and  properties  are  assigned  to  the 
CAD  design  geometry  before  finite  element  analysis  begins. 
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These  features  are  made  possible  by  a  system  that  differs  structurally  from 
Computer  Design  and  Analysis  systems  of  the  past.  The  basis  for  the  design  - 
analysis  relationships  described  above  is  a  unique  design  tool  named  The 
Intergraph  Engineering  Modeling  System  (I/EMS).  Built  onto  I/EMS  are 
application  specific  tools  for  finite  element  analysis,  mechanism  analysis  and 
other  engineering-specific  requirements.  In  the  area  of  finite  element  analysis, 
I/FEM  is  built  directly  onto  I/EMS.  I/FEM  is  a  complete  system  for  model 
generation,  analysis  and  post  processing  as  well  as  a  full  support  system  for 
COSMIC  NASTRAN.  Some  of  the  features  of  I/FEM  include  automatic  mesh 
generation  and  geometry-based  analysis  methods  as  mentioned  above.  M'  - 
generation  within  the  I/FEM  environment  includes  traditional  single  and  semi¬ 
automatic,  meshing  as  well  as  fully  automatic  meshing.  With  automatic 
mesh  generation,  the  user  can  mesh  an  entire  surface  model  with  a  single 
command,  without  extensive  setup  work.  The  mesher  recognizes  boundaries  of 
different  material,  load,  or  property  and  places  nodes  and  elements  at  the 
proper  locations.  In  addition  the  system  performs  smoothing  operations  that 
result  in  correctly  shaped  elements.  At  dl  times,  the  user  has  control  over 
element  shape  criteria  and  is  warned  when  rules  are  violated.  I/FEM  is  the 
only  finite  element  system  system  available  with  all  of  the  following 
features: 

*  Object  oriented  programming  concepts. 

*  A  common  mathematical  description  for  all  geometric  entities,  the  Non- 
Uniform  Rational  B-Spline  (NURB). 

*  The  ability  to  generate  surface,  solid  and  wireframe  entities  within  a 
single  model. 

*  A  Relational  Data  Base. 

These  four  features  provide  the  basis  for  design  -  analysis  relationships  within 
the  Intergraph  environment.  Object  oriented  programming  allows  a  graphic 
entity  such  as  a  surface  or  solid  to  know  its  material  composition.  An 
’’object”  can  be  defined  as  entities  that  contain  within  themselves  both  the 
information  that  defines  how  they  behave  (action)  and  information  that 
defines  their  existence  (state).  Within  an  object-oriented  software  system,  this 
means  that  an  object  is  a  package  (in  memory)  of  data  and  procedures  that  go 
together.  In  an  object-oriented  software  environment,  a  subclass  inherits  all  of 
the  instance  variables,  methods,  and  message  protocols  of  its  superclass.  To 
specialize  from  a  class,  one  merely  creates  a  subclass,  adding  additional  instance 
variables,  methods  and  messages  only  as  needed  to  define  what  is  different 
between  the  new  subclass  and  its  superclass.  A  subclass  may  also  choose  to 
override  a  method  which  it  inherits,  if  the  overridden  method  performs 
differently  that  the  superclass  method,  based  on  some  difference  between  the 
two  classes.  This  powerful  concept  has  far  reaching  potential.  The  finite 
element  engineer  can  now  receive  an  intelligent  design  geometry  that  includes 
many  modeling  attributes.  When  combined  with  automatic  meshing 
capabilities,  the  result  is  reduced  model  generation  time.  In  addition,  these 
features  add  a  new  dimension  to  adaptive  refinement  and  optimization. 
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Beyond  the  benefits  in  the  traditional  engineering  areas,  I/FEM  offers  its 
greatest  potential  in  the  conceptual  design  phase.  The  use  of  engineering  tools 
in  this  phase  of  design  is  considered  by  many  to  be  one  of  the  ways 
American  manufacturing  will  again  become  competitive  in  the  world  market. 
To  bring  tools  like  finite  element  analysis  into  mainstream  mechanical  design 
the  designer  must  be  be  given  user  friendly  software  tools.  In  many  cases 
designers  can  perform  preliminary  analysis  that  can  be  very  beneficial.  The 
detailed  analysis  must  of  course  be  left  to  the  finite  element  specialist. 
Intergraph  has  designed  a  user  interface  into  I/FEM  that  greatly  simplifies 
model  generation.  Other  features  such  as  adaptive  refinement  and  element 
shape  optimization  give  the  designer  more  confidence  in  finite  element  analysis. 

Another  major  factor  that  will  determine  to  what  extent  finite  element 
analysis  will  be  used  by  design  groups  is  hardware  availability.  Traditionally 
engineers  have  run  finite  element  analysis  on  large  computers.  Recently 
engineering  workstations  have  proven  to  be  a  viable  platform  for  numerical 
analysis.  All  major  finite  element  systems  now  run  on  engineering 
workstations.  By  migrating  to  such  platforms  the  user  has  more  control  over 
the  total  process  and  in  almost  all  cases  has  faster  turnaround.  COSMIC 
NASTRAN  runs  on  Intergraph’s  workstations. 

The  geometry  based  application  capability  also  applies  to  other  areas  of  MCAE 
incl  ling  mechanism  and  computational  fluid  dynamics.  These  concepts  result 
in  integration  between  different  areas  of  engineering  as  well  as  between  design 
and  engineering.  For  example  mass  properties  from  a  finite  element  model  can 
be  used  directly  by  the  mechanism  model.  The  result  is  a  system  that  brings 
the  engineer  closer  to  the  design  and  manufacturing  process  which  in  turn 
reduces  the  overall  cost  associated  with  product  development. 

In  summary,  changes  in  both  software  and  hardware  are  rapidly  bringing 
conceptual  engineering  tools  like  finite  element  analysis  into  mainstream 
mechanical  design.  Systems  that  integrate  all  phases  of  the  manufacturing 
process  provide  the  most  cost  benefits.  The  application  of  programming 
concepts  like  object  oriented  programming  allow  for  the  ’’encapsulation"  of 
intelligent  data  within  the  design  geometry.  This  combined  with  declining 
cost  in  per  seat  hardware  bring  new  alternatives  to  the  user.  Such  systems 
are  being  offered  by  Intergraph  today. 
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A  NASTRAN/TREETOPS  Solution  to  a  Flexible,  Multi-Body  Dynamics 
and  Controls  Problem  on  a  UNIX  Workstation 

Javier  E.  Benavente  and  Norris  R.  Luce 
Dynacs  Engineering  Co.,  Inc. 

Clearwater,  Fla. 


SUMMARY 

Demands  for  non-linear  time  history  simulations  of  large,  flexible 
multi-body  dynamic  systems  has  created  a  need  for  efficent  interfaces  be¬ 
tween  finite-element  modeling  programs  and  time-history  simulations. 

One  such  interface,  TREEFLX,  an  interface  between  NASTRAN  and  TREETOPS, 
a  non-linear  dynamics  and  controls  time  history  simulation  for  multi-body 
structures,  is  presented  and  demonstrated  via  example  using  the  proposed 
Space  Station  Mobile  Remote  Manipulator  System  (MRMS). 

The  ability  to  run  all  three  programs  (NASTRAN,  TREEFLX  and  TREETOPS), 
in  addition  to  other  programs  used  for  controller  design  and  model  reduction 
(such  as  DMATLAB  and  TREESEL,  both  described  in  this  paper),  under  a  UNIX 
Workstation  environment  demonstrates  the  flexibility  engineers  now  have  in 
designing,  developing  and  testing  control  systems  for  dynamically  complex 
systems. 


INTRODUCTION 


Traditionally,  the  "Modern"  control  design  process  has  begun  with  a 
linearized  representation  of  a  model.  From  this  point  several  paths  may  be 
taken  to  derive  gains  that  form  the  basis  of  a  feedback  control  system. 

Many  tools  exist  today  that  facilitate  this  control  design  process.  One 
such  tool,  DMATLAB,  accepts  the  model  via  the  (A,B,C,D)  matrices  defined  by; 


where : 


x(t)  =  A  x(t)  +  B  u(t) 

y(t)  =  C  x(t)  +  D  u(t) 

x(t) 

is  the  state  vector 
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is  the  input  vector 
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The  question  arises,  where  do  the  (A,B,C,D)  system  matrices  come  from? 
TREETOPS,  a  non-linear  time  history  simulation  for  multi-body  systems  with 
active  control  elements,  answers  this  question  via  a  linearization  option 
which  produces  the  (A,B,C,D)  matrices  as  an  output. 

TREETOPS  numerically  derives  the  equations  of  motion  of  systems  based 
on  a  user  defined  topology.  For  rigid  systems,  the  process  is  simple.  The 
mass  and  inertia  properties  of  each  rigid  body  in  the  system  is  specified, 
along  with  node  point  geometry.  The  relationship  between  the  bodies  is 
specified  by  defining  hinges.  Sensors  and  actuators  are  easily  included, 
along  with  controllers  and  other  simulation  elements. 

For  flexible  bodies  the  topology  is  defined  in  a  similar  manner} 
however,  additional  modal  data  is  needed  for  TREETOPS  to  accurately  simulate 
the  flexible  system  response  [ref.  1].  Until  recently,  this  flex  data  had  to 
be  generated  off  line  and  in  a  form  compatible  with  TREETOPS. 

The  development  of  TREEFLX  has  allowed  the  use  of  NASTRAN  to  generate 
flexible  models  of  the  individual  bodies  represented  in  the  TREETOPS  system. 
TREEFLX  utilizes  the  NASTRAN  data  to  generate  all  of  the  terms  required  by 
TREETOPS  to  simulate  the  time-history  response  of  a  flexible,  multi-body 
dynamic  system. 

This  paper  demonstrates  the  general  modeling  and  control  design  process 
and  the  role  NASTRAN  plays  within  it.  The  paper  is  organized  as  follows. 
First,  some  comments  on  system  observability/controllability  and  reduced 
order  controller  design  is  presented,  along  with  comments  on  a  general 
control  design  procedure.  Next,  the  topology  of  the  system  of  interest  is 
presented  and  a  rigid  model  of  the  system  is  developed  to  facilitate  con¬ 
troller  design.  The  controller  is  derived  based  upon  the  rigid  system.  With 
this  analysis  complete,  the  bodies  are  modeled  as  flexible  via  NASTRAN.  For 
computational  considerations,  component  model  reduction  is  performed  on  the 
flexible  model.  The  reduced  order  model  is  used  to  evaluate  the  controller 
designed  with  the  rigid  system. 

It  should  be  emphasized  that  all  of  the  analysis,  modeling  and  design 
work  for  this  paper  was  completed  on  UNIX  Workstations,  namely,  a  SUN  3/60 
and  Silicon  Graphics  Personal  IRIS  Workstation.  The  ability  for  an  engineer 
to  model  a  complex  multi-body  flexible  system  with  a  complete  version  of 
NASTRAN,  design  a  controller  for  that  system  and  simulate  the  non-linear 
closed-loop  time  history  on  a  relatively  inexpensive  UNIX  Workstation  is  a 
major  advancement  in  computer  aided  engineering  analysis  and  design. 


CONTROL  DESIGN  CONCEPTS 

It  is  generally  acknowledged  by  control  designers  that  the  model  and 
control  design  processes  are  inseparable.  Indeed,  Skelton  [ref.  2]  refers  to 
this  as  the  Modeling  and  Control  Inseparability  Principle.  Simply  put,  the 
modeling  and  control  designs  are  necessarily  iterative. 

Often,  simple  models  of  a  physical  systems  are  employed  to  facilitate 
the  control  design.  As  an  example,  consider  a  single  beam  modeled  as  a 
flexible  body  by  NASTRAN.  Suppose  20  flexible  modes  are  retained  for  the 
TREETOPS  representation  of  this  beam,  and  that  one  rigid  rotational  degree 
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of  freedom  is  provided  by  a  pinned  hinge.  Further,  suppose  that  two  sensors, 
one  to  measure  the  hinge  angle  and  the  other  to  measure  the  rate  of  change 
of  the  angle,  along  with  a  torque  actuator,  are  co-located  at  this  hinge. 
The  linearized  TREETOPS  state  matrix  would  be  size  42  by  42.  Controllability 
and  observability  (in  the  sense  of  a  Linear  Quadratic  (LQ)  control  design) 
is  certainly  not  guaranteed  and  probably  not  likely. 

Now  consider  the  body  as  rigid,  with  a  stiff  spring  placed  at  the 
pinned  hinge  to  approximate  the  body’s  flexibility.  For  this  model  the 
TREETOPS  state  matrix  is  size  2  by  2.  In  general,  observability  is 
guaranteed  and  controllability  is  more  likely;  a  solution  to  the  LQ  design 
problem  is,  in  general,  easier  to  obtain  with  simpler  models. 

As  Anderson  and  Liu  mention  [ref.  3],  the  above  process  is  in  reality  a 
crude,  yet  sometimes  successful,  approach  to  controller  reduction. 

A  logical  question  to  be  asked  here  is:  How  does  the  performance  of  a 
controller  based  on  a  simple  model  of  a  system  change  when  applied  to  a  more 
complex  representation  of  the  same  physical  phenomenon? 

Figure  1  shows  the  control  design  process  used  in  this  paper.  Below 
each  process  block  is  the  name  of  the  computer  program(s)  utilized  in  this 
paper  to  accomplish  the  process’  objectives.  Figure  2  shows  the  general 
relationship  and  interaction  between  these  programs  as  implemented  in  a  UNIX 
Workstation  environment. 

This  paper  demonstrates  the  design  process  of  Figure  1  by  example.  A 
simplified  lumped  flexibility  model  of  the  MRMS  is  developed  to  form  the 
basis  of  an  LQ  controller.  Once  settled  upon,  this  controller  is  applied  to 
a  more  complex  system  derived  from  NASTRAN  models.  Performance  characteris¬ 
tics  are  compared  between  the  two  models. 


MODEL  TOPOLOGY 

Figure  3  shows  the  general  topology  of  the  system  of  interest 
paper,  a  model  of  the  MRMS.  Represented  is  a  4-body  system,  the  tir  .... 
fourth  bodies  both  being  rigid,  the  second  and  third  bodies  both  flexible. 

Two  sensors  each  are  located  at  the  second  and  third  hinges.  The  first 
sensor  measures  the  Euler  angle  between  each  hinge’s  inboard  and  outboard 
body,  the  second  sensor  measures  the  rate  of  change  of  the  angle.  A  torque 
motor  actuator  is  co-located  with  the  sensors  at  both  of  the  hinges.  For 
simplicity,  only  one  rotational  degree  of  freedom  is  modeled  at  both  the 
second  and  third  hinge.  All  other  hinges  are  locked.  Physical  properties  of 
the  individual  bodies  are  summarized  in  Table  1. 

The  control  design  objective  is  to  minimize  perturbations  from  the 
initial  conditions  of  the  Euler  angles,  as  measured  by  the  sensors  at  the 
second  and  third  hinges,  in  the  presence  of  a  disturbance.  The  disturbance 
is  modeled  within  TREETOPS  by  a  non-periodic  pulse  acting  at  the  end  of  the 
third  body. 
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CONTROLLER  DEVELOPMENT 


To  facilitate  control  design,  a  lumped  flexibility  model  is  developed 
with  the  aid  of  TREESET  and  TREETOPS.  This  lumped  flexibility  model  treats 
each  body  as  being  rigid;  flexibility  is  modeled  by  lumping  the  body 
flexibility  at  the  hinges  with  stiff  springs. 

The  lumped  flexibility  model  is  entered  into  TREETOPS  via  TREESET,  an 
interactive  setup  program.  The  linearization  option  is  chosen  and  the 
simulation  is  set  to  run  for  one  time  step.  Running  the  TREETOPS  simulation 
results  in  a  file  containing  the  linear,  time-invariant  (A,B,C,D)  matrices 
for  the  lumped  flexibility  model.  This  process  is  equivalent  to  Step  1  of 
Figure  1.  Table  2  list  the  numerical  values  of  the  (A,B,C,D)  matrices  as 
output  from  TREETOPS’  linearization  option. 

These  matrices  are  entered  into  DMATLAB.  DMATLAB  provides  many  controls 
analysis  and  design  tools  for  both  the  "classical"  and  "modern"  controls 
designer.  DMATLAB  is  used  to  design  a  controller  based  on  the  lumped 
flexibility  model.  This  is  equivalent  to  Step  2  of  Figure  1. 


Feedback  control  gains  are  obtained  via  an  LQ  control  design  based  on 
full-state  feedback.  The  state  vector  is  defined  by  the  two  Euler  angles  and 

their  rates.  If  we  represent  the  angles  by  an<*  their  rates  by  ^  an<* 

§2  and  the  controller  output  (actuator  commands)  as  ^  and  U2  then  the 
control  law  gain  is  a  matrix  G  such  that  ; 


The  numerical  v  lues  for  G  will  be  found  in  Table  2. 

TREESET  is  used  to  define  a  continuous  matrix  controller  for  the 
TREETOPS  simulation.  Interconnects  are  established  between  the  sensors  and 
the  actuators,  scaled  by  the  gains  determined  in  DMATLAB.  This  forms  the 
basis  of  a  continuous  feed-back  control  system  for  the  non-linear,  time- 
history  TREETOPS  simulation.  This  simulation  is  the  equivalent  of  Step  3  in 
Figure  1. 

For  complicated  systems,  an  iteration  for  the  controller  gains  will 
probably  be  required;  indeed,  the  final  controller  gains  for  this  paper  were 
selected  only  after  several  such  iterations. 
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NASTRAN  MODEL 


Since  no  official  configuration  for  the  MRMS  has  been  established,  the 
NASTRAN  models  are  based  on  Space  Shuttle  Remote  Manipulator  System  (SRMS) 
data  [ref.  4]. 

The  NASTRAN  flex  data  is  generated  using  CBAR  elements  to  represent  the 
mass  and  stiffness  properties  of  SRMS  body  elements.  Fixed-free  boundary 
conditions  were  chosen  for  each  body.  Standard  Solution  3  (Normal  Modes 
Analysis),  with  an  DMAP  alter  added  for  the  additional  output  required  by 
TREEFLX,  is  utilized.  A  separate  0UTPUT5  file  is  generated  for  each  flexible 
body  in  the  topology.  The  development  of  the  NASTRAN  model  is  equivalent  to 
Step  4  of  Figure  4. 

TREEFLX,  based  on  the  NASTRAN  data  for  each  body,  calculates  all  of  the 
required  and  optional  modal  data  for  the  TREETOPS  simulation.  Table  3  sum¬ 
marizes  the  modal  terms  presently  generated  by  TREEFLX  and  used  by  TREETOPS. 

To  generate  this  data,  TREEFLX  requires  the  NASTRAN  Nodal  Mass, 
Eigenvectors,  Modal  Mass,  Modal  Stiffness  and,  if  available,  Modal  Damping 
matrices.  In  addition,  a  matrix  consisting  of  NASTRAN  Grid  Point  Location 
vectors,  expressed  in  global  coordinates,  is  required.  The  process  of  con¬ 
verting  NASTRAN  output  data  to  TREETOPS  input  data  with  TREEFLX  is 
represented  by  Step  5  of  Figure  1. 

A  major  assumption  in  TREEFLX  is  that  the  TREETOPS  and  NASTRAN  models 
use  the  same  coordinate  system  for  each  individual  body.  Based  on  this 
assumption,  it  is  not  necessary  to  designate  the  TREETOPS  node  location  with 
coordinates  during  the  TREESET  setup  procedure,  but  rather,  the  user  desig¬ 
nates  a  corresponding  NASTRAN  grid  point  ID  for  each  TREETOPS  node.  TREEFLX 
uses  this  node/grid  point  correspondence  to  develop  the  TREETOPS  nodal 
geometry.  Not  all  NASTRAN  grid  points  have  to  be  included  in  the  TREETOPS 
model.  TREETOPS  nodes  are  required  only  as  hinge  attach  points,  sensor  and 
actuator  locations  and  for  mass  centers. 

An  important  distinction  must  be  made  at  this  point.  Notice  in  Table  3 
that  several  TREETOPS  terms  are  calculated  with  summations  over  the  total 
number  of  nodal  bodies  in  the  model.  Even  though  all  nodes  may  not  be  in¬ 
cluded  in  the  final  TREETOPS  data  file,  the  TREEFLX  nodal  summations  are 
made  over  the  entire  set  of  NASTRAN  grid  points  supplied  in  the  NASTRAN 
0UTPUT5  file,  not  just  over  the  sub-set  of  retained  TREETOPS  nodes. 


COMPONENT  MODE  MODEL  REDUCTION 

An  optional  step  may  be  inserted  between  Steps  5  and  6  of  Figure  1. 
Suppose  the  complex  model  developed  by  NASTRAN  includes  100  modes  for  each 
body,  yet  it  is  determined  that  a  model  with  47  modes  for  each  body  is 
sufficient  for  an  accurate  time-history  simulation  (this  paper  does  not 
propose  any  method  for  this  determination).  This  implies  that  a  model  reduc¬ 
tion  procedure  might  be  inserted  at  this  point  of  the  design  process. 

TREEFLX  provides  for  model  reduction  with  a  simple  mode  selection 
technique.  If  model  reduction  is  indicated,  TREEFLX  searches  for  a  file  that 
lists  the  modes  that  should  be  retained  for  each  individual  body. 
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A  natural  question  arises:  Which  modes  should  be  retained  in  a  reduced 
order  model?  This  paper  does  not  present  a  theoretical  discussion  of  com¬ 
ponent  mode  model  reduction  procedures;  however,  TREESEL,  a  TREETOPS 
companion  program,  can  assist  in  the  answering  of  the  above  question. 

TREESEL  uses  several  methods  to  rank  the  relative  importance  of  the 
system  modes.  One  method,  used  in  this  paper  to  reduce  the  MRMS  NASTRAN 
model,  is  the  Modified  Component  Cost  method. 

The  Component  Cost  method  is  based  on  the  assumption  that  each  state 
contributes  to  a  cost  function,  V,  defined  by  the  model  designer.  By  decom¬ 
posing  the  cost  function  into  its  components,  the  relative  contribution  of 
each  system  state  to  the  cost  function  can  be  ranked. 

In  TREETOPS,  each  degree  of  freedom  is  a  state.  A  beam  with  N  flexible 
modes  will  have  at  least  2*N  states,  2  states  for  each  mode.  TREESEL  ranks 
these  modal  degrees  of  freedom  in  a  concise  form.  Once  ranked,  the  number  of 
modes  to  be  retained  depends  on  the  open  loop  performance  matching  the 
analyst  would  like  to  obtain.  An  iterative  process  of  selecting  modes  is 
usually  required  to  obtain  a  suitable  reduced  order  model.  Table  4  lists  the 
NASTRAN  modes  as  ranked  by  TREESEL.  This  ranking  represents  only  a  single 
iteration  with  TREESEL  using  simply  selected  weights. 

To  demonstrate  TREESEL  model  reduction  techniques,  the  five  highest 
ranked  modes  for  each  body  (10  system  modes)  were  retained  for  the  "complex" 
NASTRAN/TREETOPS  model. 

Step  5  of  Figure  1  is  accomplished  by  merging  the  NASTRAN/TREETOPS 
model  with  the  continuous  matrix  controller  gains  derived  earlier.  TREETOPS 
is  used  to  simulate  the  closed-loop  time-history  response  of  the  system. 


RESULTS 

Figures  4  and  5  show  the  results  of  Steps  1,  2  and  3  of  Figure  1. 
Plotted  is  the  time-history  of  the  uncontrolled  vs  controlled  hinge  Euler 
angles  and  rates  for  the  lumped  flexibility  model.  The  results  shown  were 
considered  adequate  to  accept  the  controller  design. 

Figures  6  and  7  show  the  results  of  component  mode  model  reduction 
using  the  five  highest  body  modes  ranked  by  TREESEL.  Shown  are  the  uncon¬ 
trolled  hinge  Euler  angles  and  rates  for  the  full-order  (20  modes)  and 
reduced-order  (5  modes)  NASTRAN  model.  The  TREESEL  ranking  was  obtained  with 
just  one  run  of  the  program  and  simply  selected  weight  were  used.  The 
results  seem  to  indicate  that  reduced  order  models  of  higher  order  systems 
can  approximate  the  higher  order  system’s  uncontrolled  response. 

Figures  8  and  9  show  the  results  of  Step  6  of  Figure  1.  Plotted  is  the 
time-history  of  the  uncontrolled  vs  controlled  hinge  angles  and  hinge  angle 
rates  for  the  NASTRAN  reduced-order  model.  Figures  10  and  11  compare  the 
uncontrolled  responses  of  the  Lumped  Flexibility  and  NASTRAN  reduced  order 
models.  Figures  12  and  13  compare  the  controlled  responses  of  the  Lumped 
Flexibility  and  NASTRAN  reduced  order  models.  The  results  indicate  that,  for 
some  systems,  controllers  designed  on  the  basis  of  simplified  models  of 
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complicated  systems  do  perform  adequately  on  higher  fidelity  models  of  the 
same  system. 

Figure  14  compares  the  actuator  commands  (controller  outputs)  of  the 
Lumped  Flexibility  and  NASTRAN  reduced  order  models. 


CONCLUSIONS 

This  paper  demonstrates  the  use  of  NASTRAN  and  a  UNIX  Workstation 
environment  in  the  system  modeling/control  design  process.  An  automated 
design  environment  on  a  UNIX  Workstation  applicable  to  modeling  and  control 
theory  is  presented. 

TREEFLX  is  used  to  interface  flexible  body  data  from  NASTRAN  with  the 
flexible  multi-body  non-linear  analysis  program  TREETOPS.  Powerful  modeling 
and  control  design  concepts  are  demonstrated  via  a  non-trivial  example. 
Results  support  the  feasibility  of  using  all  of  the  programs  in  conjuction 
with  one  another  to  provide  viable  analysis  and  designs. 

The  ease  in  which  the  model  or  the  controller  can  be  changed  further 
enhances  the  analysis  turn-around- time  and  the  design  process  itself, 
clearly  demonstrating  the  advantages  of  working  within  a  dedicated  UNIX 
Workstation  environment. 
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TABLE  1.  -  HASS  AND  GEOMETRIC  PROPERTIES  OP  MRMS  MODEL 


MASS 

Ixx 

Ivy 

Izz 

LENGTH 

(kg) 

(  kg-m2  ) 

(m) 

63.3 

0 

41.04 

41.04 

1.06 

139.2 

0 

1877.9 

1877.9 

6.38 

100.0 

0 

1429.9 

1429.9 

7.06 

50.0 

0 

15.0 

15.0 

1.00 

TABLE  2.  -  (A,B,C,D)  MATRICES  AND  CONTROLLER  GAIN  MATRIX  G 


-.008816 

.016190 

.016190 

-.039067 

1.0 

0.0 

0.0 

1.0 

" .000176 

B  = 

-.000324 

0.0 

0.0 

1.0  0.0  0.0  0.0 

0.0  1.0  0.0  0.0 

0.0  0.0  1.0  0.0 

0.0  0.0  0.0  1.0 

["-5281.28 

2243.41 

L  3478.13 

-8005.26 

-9.41087 

11.2336 

17.28277 

-27.1063 

0.0 

0.0 

0.0 

0.0 

-.000324 

.000781 

0.0 

0.0 

[0.0  o.o] 

D  = 

0.0  0.0 

0.0  0.0 

Lo.o  o.oj 

1199.95 

-386.81] 

4361.25 

-1209.26 
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TABLE  3.  -  TREETOPS  NODAL  TERMS  CALCULATED  B7  TREEPLX 


,  NNB 

CE 

0=1 


[m  r  [<f>  . } 
1  o  o  oi 


■r  m  1  {0’4} 
o  o  ol  oiJ 


+  Jb0 


NNB 

a.  =  1/  {£  m  .  -  4  x  d  .)} 

— i  m  ,  o  '";coi  ~o  xoi/'’ 

o=l 


h  t  NNB 

1?  =  b  {£  [-m  r  ?  .  -  m  H  $  .1}  b 

=i  1  o  o  oi  o  o  oiJ 


b  T  “  -  - 

Ki-  b  K  .  [-0  *ok  *oi»  k 
0=1 


h  T  NNB 

i“i-  bT(E  [.„  *ok  (*0l)  -  ?oR  <!0  {♦;,) 
0=1 


WHERE: 

b  represents  the  body  reference  frame 

i,k  represent  the  ith,kth  modes 

NNB 

E  is  the  sum  over  the  number  of  nodal  bodies 
o=l 

mQ  is  the  mass  of  the  o^  nodal  body 

NNB 

m  is  the  body  mass  ;  m  =  Y.  m 

o=l  0 


CONTINUED 
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TABLE  3.  -  CONTINUED 


bo 


ok. 


*ok 


S 

-o 


~0 

{•} 


til 

is  the  inertia  matrix  of  the  o  nodal  bod> 

is  the  k^1  mode  shape  at  the  o1^  nodal  body 

is  the  k**1  mode  slope  at  the  o^  nodal  body 

th 

is  the  vector  location  of  the  ol  nodal  body  mass  center 

th 

is  the  vector  location  of  the  o  nodal  body 
represents  a  3x1  column  matrix 

represents  a  skew  symmetric  matrix,  that  is,  suppose  r;  is  given 

by; 

r  =  ri  i  +  ry-  ♦  r3k 


then  r  is; 
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TABLE  4.  -  TREESEL  RANKING  OP  SYSTEM  MODES  (BY  BODY) 


RANK  BODY  #2  MODES  BODY  #3  MODES 


1 

14 

16 

2 

9 

4 

3 

11 

2 

4 

4 

9 

5 

6 

11 

6 

2 

6 

7 

13 

18 

8 

19 

14 

9 

8 

5 

10 

5 

3 

11 

10 

8 

12 

3 

1 

13 

18 

10 

14 

7 

17 

15 

12 

7 

16 

16 

13 

17 

20 

20 

18 

15 

15 

19 

1 

19 

20 

17 

12 

This  table  presents  data  obtained  with  only  one  TREESEL  iteration. 
Simply  selected  weights  were  used. 

The  five  highest  ranked  modes  were  retained 
for  the  TREETOPS  flexible  model. 
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Figure  2. 
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Full  Order  (20  Modes)  vs  Reduced  Order  (5  Modes)  Model 
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Figure  6. 
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Uncontrolled  Response 

Full  Order  (20  Modes)  vs  Reduced  Order  (5  Modes)  Model 


Figure  7. 
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NASTRAN  Flexible  Model 
Uncontrolled  vs  Controlled  Response 


Figure  9. 
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Uncontrolled  Response 

Lumped  Flexibility  Model  vs  NASTRAN  Model  (reduced  order  model) 


Figure  10. 
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Uncontrolled  Response 

Lumped  Flexibility  Model  vs  NASTRAN  Model  (reduced  order  model) 


Figure  11. 
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Controlled  Response 

Lumped  Flexibility  Model  vs  NASTRAN  Model  (reduced  order  model) 
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Controlled  Response 

Lumped  Flexibility  Model  vs  NASTRAN  Model  (reduced  order  model) 


Figure  1 
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Figure  14. 
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ENHANCEMENTS  TO  THE  IBM  VERSION  OF  COSMIC/NASTRAN 


by 

W.  Keith  Brown 
RPK  Corporation 
Hayes,  Virginia 


SUMMARY 

Major  improvements  have  been  made  to  the  IBM  version  of  COSMIC/NASTRAN  by  RPK 
Corporation  under  contract  to  IBM  Corporation.  These  improvements  will  become  part  of 
COSMIC’s  IBM  version  and  will  be  available  in  the  second  quarter  of  1989.  The  first  improvement 
is  the  inclusion  of  code  to  take  advantage  of  IBM’s  new  Vector  Facility  (VF)  on  its  3090  machines. 
The  remaining  improvements  are  modifications  that  will  benefit  all  users  as  a  result  of  the  extended 
addressing  capability  provided  by  the  MVS/XA  operating  system.  These  improvements  include  the 
availability  of  an  in-memory  data,  base  that  potentially  eliminates  the  need  for  I/O  to  the  PRIxx  disk 
files.  Another  improvement  is  the  elimination  of  multiple  load  modules  that  have  to  be  loaded  for 
every  link  switch  within  NASTRAN.  The  last  improvement  allows  for  NASTRAN  to  execute  above 
the  16  mega-byte  line.  This  improvement  allows  for  NASTRAN  to  have  access  to  2  giga-bytes  of 
memory  for  open  core  and  the  in-memory  data  base. 


INTRODUCTION 

Very  few  changes  have  been  made  to  the  IBM  version  of  COSMIC/NASTRAN  in  the  last  few 
years  in  order  to  take  advantage  of  new  hardware  capabilities  and  new  MVS/XA  operating  system 
features.  One  of  IBM’s  new  hardware  capabilities  is  the  Vector  Facility  that  provides  significant 
CPU  time  reductions  for  programs  with  vector  operations  (Reference  1).  Use  of  IBM’s  new  Vector 
Facility  allows  NASTRAN  to  solve  larger  problems  in  a  much  faster  manner.  Problems  that  spend 
a  large  amount  of  CPU  time  in  symmetric  decomposition,  matrix  multiplication,  forward/backward 
substitution  and  eigenvalue  analysis  could  greatly  benefit  from  use  of  the  Vector  Facility. 
NASTRAN  has  been  modified  to  take  advantage  of  the  Vector  Facility  in  these  areas. 

With  the  release  of  MVS/XA,  IBM  allowed  users  to  reference  up  to  2  giga-bytes  of  memory  in 
a  given  job  step.  However,  NASTRAN  could  only  run  under  the  16  mega-byte  line  because  of  the 
assembly  language  code  and  the  memory  management  design.  Of  the  1 6  mega-bytes,  the  most  a  user 
could  get  was  about  8  mega-bytes  because  of  the  operating  system.  Although  8  mega-bytes  was 
probably  acceptable  for  open  core,  it  was  insufficient  to  contain  any  in-memory  data  files. 
NASTRAN  has  now  been  modified  to  allow  it  to  execute  above  the  16  mega-byte  line  and  this  in 
turn  allows  access  to  a  maximum  of  2  giga-bytes  of  memory. 

With  access  to  2  giga-bytes  of  memory,  NASTRAN  can  now  have  the  option  of  keeping  DM  AP 
files  in  memory.  These  files  were  previously  written  to  the  PRIxx  files  using  BSAM  I/O.  This  in¬ 
memory  capability  has  been  implemented  and  the  implementation  automatically  allows  for  the  use 
of  external  files  when  memory  for  the  in-memory  files  has  been  exhausted.  The  end  result  of  this 
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feature  is  that  job  turnaround  will  be  improved  because  of  the  reduction  of  disk  I/O. 

Lastly,  NASTRAN  was  previously  delivered  as  16  load  modules.  One  load  module  was  always 
resident.  The  other  15  load  modules  were  loaded  into  memory  when  needed  but  only  one  could 
reside  in  memory  at  a  given  time.  If  a  new  load  module  was  needed,  the  current  memory-resident 
load  module  would  be  deleted  and  the  new  load  module  loaded  in  its  place.  Therefore,  as  NASTRAN 
was  processing  the  job,  load  modules  would  be  loaded  and  then  deleted  to  allow  for  other  load 
modules.  This  resulted  in  lost  time.  Though  the  time  that  was  lost  was  not  appreciable,  NASTRAN 
is  now  designed  to  eliminate  this  reloading  procedure  and  all  of  NASTRAN  now  remains  completely 
in  memory. 


EXECUTION  TIME  OPTIMIZATION  CONSIDERATIONS 

There  are  several  considerations  that  a  user  should  be  aware  of  when  trying  to  setup  his  NAS¬ 
TRAN  run  for  optimal  execution  time.  First,  a  user  should  be  aware  of  the  amount  of  open  core  that 
he  may  need.  If  open  core  is  not  large  enough,  users  may  experience  severe  execution  time 
degradation  due  to  possible  spilling  during  decomposition  or  multiple  passes  on  matrices  used  in 
matrix  multiplication  or  forw  ard-backward  substitution.  There  is  no  single  formula  that  may  be  used 
to  determine  the  amount  of  open  core  needed  for  all  cases;  however,  the  following  formulas  provide 
some  rough  estimates. 

Size  =  6  *  (larger  of  (number  of  degrees  of  freedom  in  the  a-set) 
or  (number  of  degrees  of  freedom  in  the  o-set) ) 

*  (number  of  output  cases  (e.g.,  number  of  loads  or  number  of  eigenvalues) ) 

Size  =  .04  *  (square  of  degrees  of  freedom  in  problem) 

The  above  formulas  are  crude  and  should  only  be  used  as  rough  estimates.  Users  should  check  all 
symmetric  decomposition  messages  to  determine  if  any  spill  groups  were  required  and  also  all 
matrix  multiply-add  (MPYAD)  messages  to  determine  if  multiple  passes  were  required.  If  either 
spill  groups  or  multiple  passes  were  required,  then  open  core  should  be  increased. 

In  addition  to  the  amount  of  open  core  given  to  a  problem,  all  problems  will  benefit  from  the 
use  of  the  in-memory  data  base.  The  size  of  the  in-memory  data  base  is  controlled  by  the  REGION 
size  given  by  the  user,  the  memory  to  be  returned  to  the  operating  system  and  the  memory  to  be  used 
for  open  core.  The  amount  of  memory  to  be  used  by  the  in-memory  data  base  is  computed  as  follows: 

DB  Size  =  (Region  Size)  -  (Open  Core  Size)  -  (Operating  System  Memory) 

-  (NASTRAN  Load  Size) 

(Note,  the  size  of  the  NASTRAN  load  module  is  approximately  8000k  bytes) 

The  in-memory  data  base  capability  eliminates  much. of  the  I/O  performed  by  NASTRAN.  This 
results  in  faster  turnaround  and  faster  execution.  CPU  savings  will  be  of  the  order  of  about  57c 
for  most  problems. 
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USE  OF  IBM's  VECTOR  FACILITY 


Efficiency  improvements  come  also  from  the  use  of  IBM’s  new  Vector  Facility.  IBM’s  new 
Vector  Facility  allows  programs  with  vector  operations  to  use  vector  instructions  for  faster  CPU 
execution  (Reference  2).  Inherent  in  the  use  of  vector  hardware  is  the  length  of  the  vector(s)  to  be 
processed.  Due  to  the  startup  time  and  other  associated  overhead  that  goes  with  vector  processing, 
vectors  must  be  of  a  certain  minimum  length  before  CPU  gains  can  be  realized.  In  some  cases  where 
the  vectors  are  very  short,  degradation  can  occur  and  longer  CPU  times  can  result.  In  general,  vectors 
should  have  a  length  of  10  elements  or  more  for  real  CPU  gains  to  be  realized.  This  is  true  for  the 
majority  of  problems  in  NASTRAN. 

NASTRAN  has  been  optimized  for  vectorization  in  the  following  areas:  symmetric  decompo¬ 
sition,  forward- backward  substitution,  eigenvalue  analysis  (Givens,  Inverse  Power  and  Feer)  and 
matrix  multiplication  (Reference  3).  The  gains  to  be  realized  to  a  user  are  dependent  upon  the 
amount  of  the  total  CPU  time  that  is  spent  in  these  areas.  For  most  CPU  intensive  runs,  analysis 
shows  that  these  are  the  areas  where  most  of  the  CPU  time  is  used. 

The  modifications  to  NASTRAN  took  advantage  of  IBM’s  new  Engineering  and  Scientific 
Subroutine  Library  (ESSL)  (Reference  4).  This  library  is  a  set  of  high  performance  mathematical 
subroutines  that  can  be  used  by  higher  level  languages  such  as  Fortran.  Use  of  the  ESSL  will  ensure 
users  of  optimal  performance  in  the  future  as  the  hardware  characteristics  of  the  Vectoi  Facility  may 
change. 

Figure  1  shows  improvements  that  were  made  on  a  statics,  a  normal  nodes  and  a  frequency 
response  problem  using  the  optimized  version  of  NASTRAN.  The  jobs  were  run  on  an  IBM  3090E 
computer.  A  decrease  of  approximately  10%  of  the  total  CPU  time  could  be  realized  if  these 
problems  were  run  on  an  IBM  3090S  computer.  The  vector  affinity  column  gives  a  measure  of  how 
much  of  the  CPU  time  was  spent  in  vector  computations.  Efficiency  gains  were  realized  from  the 
vector  code,  the  ability  to  have  larger  open  core  (eliminating  multiple  passes  in  matrix  multiplication 
and  forward-backward  substitution)  and  the  use  of  the  in-memory  data  base  (eliminating  much  of 
the  I/O). 

Depending  on  the  problem  characteristics,  percentage  improvements  can  vary  greatly.  There¬ 
fore,  there  is  no  hard  and  fast  rule  that  users  can  use  to  show  improvements.  However,  Figure  2 
shows  percentages  that  may  be  obtained  during  various  matrix  operations  in  NASTRAN.  These 
figures  are  given  only  so  the  user  can  have  some  idea  of  expected  improvements  using  the  Vector 
Facility. 


USE  OF  IBM's  EXTENDED  ARCHITECTURE  (MVS/XA) 


Prior  to  the  release  of  IBM’s  MVS/XA  operating  system,  the  MVS  operating  system  was  based 
on  24 -bit  addressing.  This  meant  that  any  given  program  could  not  address  more  than  21"IT6  bytes 
or  16  mega-bytes  of  memory.  Of  this  16  mega-bytes,  approximately  8  mega-bytes  were  available 
to  a  program  because  of  the  operating  system  requirements.  As  software  developments  proceeded, 
especially  in  the  area  of  graphics,  and  as  user  problems  to  be  solved  became  larger,  it  became 
apparent  that  there  was  a  need  for  programs  to  have  access  to  more  memory.  With  the  coming  of 
MVS/XA,  IBM  switched  to  3 1  -bit  addressing  and  this  allowed  for  2**3 1  or  2  giga-bytes  of  memory 
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to  be  available.  Many  of  the  IBM-supplied  compilers  were  modified  to  take  advantage  of  this  and, 
most  noticeably  for  NASTRAN,  was  the  IBM  VS  Fortran  compiler  (Reference  5).  Users  could  now 
write  programs  in  Fortran  and  take  full  advantage  of  the  3 1  -bit  addressing  capability  (Reference  6). 

The  16  mega-byte  line  that  resulted  from  24-bit  addressing  still  exists  in  a  limited  sense  for 
programs  that  have  assembly  language  subroutines.  Assembly  language  subroutines  that  perform 
I/O  functions  must  execute  in  24-bit  addressin  g  mode  with  the  possible  exception  of  subroutines  that 
use  execute  channel  program  instructions  (EXCPs)  directly.  Programs  that  have  assembly  language 
I/O  must  be  designed  to  take  this  into  account.  The  assembly  code  and  the  I/O  buffers  must  reside 
below  the  16  mega-byte  line.  In  addition  to  the  I/O  considerations,  sometimes  assembly  language 
codes  have  other  24-bit  design  dependent  considerations  that  require  that  they  execute  in  24-bit 
addressing  mode. 


The  previous  IBM  version  of  NASTRAN  had  a  very  small  percentage  of  assembly  language 
subroutines  (Reference  7).  These  subroutines  were  required  to  allow  for  dynamic  loading  of 
NASTRAN  load  modules,  to  optimize  computationally  bound  codes,  to  perform  memory  manage¬ 
ment  and  to  provide  efficient  random  access  I/O.  Because  of  these  codes,  NASTRAN  required 
modifications  to  allow  it  to  execute  in  31-bit  addressing  mode.  The  IBM  version  of  COSMIC/ 
NASTRAN  has  now  been  redesigned  to  take  advantage  of  31 -bit  addressing.  The  new  design 
resulted  in  two  load  modules.  One  load  module  is  called  NASTRAN  and  it  executes  above  the  16 
mega-byte  line.  This  load  module  contains  all  of  the  analysis  code  and  is  by  far  the  larger  module. 
The  other  load  module  is  called  10  and  it  executes  below  the  16  mega-byte  line.  This  module  does 
all  the  non-Fortran  I/O  functions  required  by  NASTRAN.  Open  core  and  the  new  in-memory  data 
base  reside  above  the  16  mega-byte  line.  Figure  3  shows  this  design. 

New  assembly  language  programs  were  created  to  allow  for  this  design.  The  main  program  in 
the  NASTRAN  load  module  is  the  assembly  language  program  NASTRAN.  The  main  program  in 
the  10  load  module  is  the  assembly  language  program  10.  The  functions  of  the  NASTRAN  assembly 
language  program  are  given  below: 


1.  Reads  and  processes  the  job  step  parm.  The  format  of  the  job  parm  has  been  changed  and 
will  be  described  below. 


2.  Initializes  the  Fortran  run-time  environment.  The  job  parm  is  also  passed  by  NASTRAN  to 
Fortran  during  initialization  to  allow  users  the  ability  to  take  advantage  of  the  new  Fortran 
job  parms  that  became  available  with  Fortran  Version  2.  One  such  Fortran  parameter  that 
is  recommended  for  use  is  the  “NOXUFLOW’  parameter  that  suppresses  a  program 
interrupt  from  a  floating  point  underflow  and  allows  for  a  hardware  fixup  instead  of  a 
software  fixup. 


3.  Performs  memory  management.  The  REGION  value  as  given  on  the  job  step  EXEC  card 
specifies  the  maximum  amount  of  memory  that  NASTRAN  can  obtain.  All  memory  that  is 


available  after  the  loading  of  th 


program  is  obtained.  Memory  is  then  released  for  the 


operating  system  use  and  the  remaining  memory  is  used  by  NASTRAN  for  open  core  and 
the  in-memory  data  base. 


4.  Loads  the  10  load  module  and  initializes  the  interface  between  the  two.  This  allows  for 
communication  to  all  I/O  subroutines  that  must  reside  below  the  16  mega-byte  line. 
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The  10  program  provides  all  of  the  non-Fortran  I/O  for  the  NASTRAN  data  files. 

The  job  step  parm  has  been  modified  for  this  new  level  of  NASTRAN.  The  format  is  as  follows: 

//  EXEC  PGM-N ASTR AN, 

//  PARM=’NOXUFLOW,OSMEM=200K,OCMEM=7000K,DBMEM=100000K’ 

The  parameters  are  defined  as  follows: 

NOXUFLOW  Parameter  to  Fortran  to  suspend  underflow  interceptions. 

OSMEM  Amount  of  memory  to  free  back  to  the  operating  system. 

OCMEM  Amount  of  memory  to  allocate  for  open  core. 

DBMEM  Amount  of  memory  to  allocate  for  the  in-memory  data  base.  A  non-zero 

value  implies  that  memory  is  to  be  allocated  for  the  in-memory  data  base. 
A  zero  value  eliminates  the  use  of  the  in-memory  data  base. 

The  last  three  parameters  determine  how  memory  is  to  be  allocated  during  the  run.  NASTRAN 
first  obtains  all  memory  available  based  on  the  job  step  REGION  value.  It  will  then  release  back  to 
the  operating  system  the  amount  of  memory  as  specified  on  the  OSMEM  parameter.  The  memory 
that  remains  will  all  be  given  to  open  core  if  DBMEM=0.  Otherwise,  the  amount  of  memory  as 
specified  by  the  OCMEM  parameter  is  designated  for  open  core  and  all  that  remains  is  used  for  the 
in-memory  data  base.  If  the  memory  for  the  in-memory  data  base  is  greater  than  that  specified  on 
DBMEM  parameter,  the  larger  value  is  used.  If  there  is  a  lesser  amount  of  memory  available  than 
that  specified  on  the  DBMEM  parameter,  then  the  lesser  amount  is  designated.  If  there  is  only 
sufficient  memory  for  open  core,  then  no  memory  is  allocated  for  the  in-memory  data  base  regardless 
of  the  value  of  DBMEM. 

NASTRAN  prints  a  summary  of  the  load  addresses  and  the  memory  allocations  at  the  beginning 
of  the  NASTRAN  log  file.  A  sample  listing  is  shown  in  Figure  4. 


IN-MEMORY  DATA  BASE 

The  in-memory  data  base  will  benefit  users  in  job  throughput  and  to  a  limited  sense  in  CPU 
utilization.  Job  throughput  will  increase  because  of  the  elimination  of  I/O  to  disk.  The  CPU  savings 
will  be  of  the  order  of  5%.  The  in-memory  data  base  is  based  on  blocks  of  memory  that  are  chained 
together.  There  is  one  chain  for  free  space.  The  block  sizes  in  the  free  chain  will  vary.  There  is  also 
one  chain  for  each  DMAP  file.  Each  DMAP  file  is  a  file  in  the  in-memory  data  base.  The  size  of 
the  blocks  allocated  for  the  DMAP  files  is  based  upon  the  size  specified  for  the  NASTRAN  GINO 
files.  Blocks  of  memory  are  allocated  for  a  DMAP  file  as  the  file  is  written  and  pointers  are 
maintained  as  to  the  current  block  being  processed.  Memory  that  is  available  for  allocation  of  the 
blocks  is  maintained  by  the  free  chain.  As  files  are  opened  for  write  with  rewind,  the  previously 
allocated  memory  data  blocks  to  a  DMAP  file  are  released  back  into  the  free  chain  and  a  new  DMAP 
file  chain  is  established.  Savings  are  realized  because  there  is  no  I/O  taking  place  and  also  there  is 
no  moving  of  data.  All  data  being  written  into  the  DMAP  file  are  written  directly  into  the  allocated 
memory  block  with  no  secondary  transfer  of  data. 
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The  in-memory  data  base  is  designed  so  that  when  there  is  insufficient  memory  for  additional 
blocks  of  an  existing  DMAP  file  or  for  the  creation  of  a  new  file,  the  external  PRIxx,  SECxx  and 
TERxx  files  are  used  as  spill.  Users  should  be  aware  that  the  PRIxx,  SECxx  and  TERxx  DD  cards 
are  still  needed,  however  the  space  allocations  may  need  to  be  adjusted  based  on  the  amount  of 
memory  provided  for  the  in-memory  data  base. 

A  directory  of  the  in-memory  data  base  is  provided  when  DIAG  2  is  turned  on.  The  directory 
comes  out  after  each  DMAP  module  execution.  Use  of  this  DIAG  is  not  recommended  because  of 
the  large  amounts  of  printout  that  it  may  generate.  Users  may  opt  to  use  the  following  technique  to 
turn  on  DIAG  2  in  order  to  get  the  in-memory  data  base  directory  at  a  specific  point  in  the  DMAP. 

ALTER  n  $ 

PARAM  //*DIAG*//2  $ 

ALTER  n+1  $ 

PARAM  //*DIAGOFF*//2  $ 

ENDALTER  $ 


where  n  is  a  DMAP  instruction  number. 

A  sample  printout  of  the  in-memory  data  base  is  given  in  Figure  5.  The  unit  number  defines  the 
unit  number  allocated  to  the  DMAP  file  in  the  NASTRAN  File  Allocation  Table  (FIAT)  and  will 
be  used  as  the  “xx”  value  to  determine  which  PRIxx  file  is  to  be  used  for  spill.  The  name  field  gives 
the  DMAP  file  name  and  the  current  number  defines  the  current  block  at  which  the  file  is  positioned. 
For  files  that  are  closed  with  rewind,  this  value  will  be  zero.  For  files  that  are  closed  without  rewind, 
this  value  will  be  the  last  block  that  was  either  read  (file  opened  for  read)  or  was  written  (file  opened 
for  write).  The  in-mem  blocks  value  defines  the  number  of  blocks  allocated  in  the  in-memory  data 
base  to  the  DMAP  file  and  the  disk  blocks  value  defines  the  number  of  blocks  that  could  not  be 
contained  in  memory  and  were  written  to  the  PRIxx  external  file.  The  trailer  values  are  the  matrix 
trailers  associated  with  the  DMAP  file. 


CONCLUDING  REMARKS 

The  IBM  version  of  COSMIC/NASTRAN  has  been  enhanced  to  take  advantage  of  IBM’s 
Vector  Facility  and  the  extended  addressing  capability  provided  by  IBM’s  MVS/XA  operating 
system.  The  enhancements  include  modifications  to  subroutines  that  can  take  advantage  of  the 
Vector  Facility,  modifications  to  allow  NASTRAN  to  execute  above  the  16  mega-byte  line  and 
modifications  to  allow  for  a  new  in-memory  data  base.  When  all  of  the  above  features  are  used,  users 
will  be  pleased  at  the  performance  increase.  In  addition,  these  modifications  open  up  the  door  for 
larger  problems  to  be  analyzed  on  IBM  that  were  previously  not  practical  because  of  CPU 
requirements  and/or  open  core  requirements. 
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TYPE  OF 
PROBLEM 

G-SET 

A-SET 

SCALAR 

CPU 

(Sec.) 

VECTOR 

CPU 

(Sec.) 

VECTOR 

AFFINITY 

(Sec.) 

VECTOR  CPU/ 
SCALAR  CPU 

Statics 

28828 

11426 

1264.3 

672.3 

520.2 

53% 

Normal  Modes 

8946 

225 

634.9 

382.6 

205.8 

60% 

Freq.  Resp. 

3852 

3614 

584.7 

390.2 

281.0 

67% 

Figure  1.  Samples  of  Improvements  in  CPU  Utilitzation 
(Problems  executed  on  IBM  3090E  computer) 


MATRIX  OPERATION 

VECTOR  CPU  /  SCALAR  CPU 

Symmetric  Decomposition 

45% 

Forward-Backward  Substitution 

33% 

Matrix  Multiply- Add  Method  1 

72% 

Matrix  Multiply- Add  Method  2 

53% 

Matrix  Multiply- Add  Method  3 

20% 

Figure  2.  Improvements  in  matrix  Computations 
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Relative  Memory  Address  0 


10  Load  Module 


16  Mega-Byte  Line 


Memory  for  OS 


NASTRAN  Load  Module 


Open  Core 


In-Memory  Data  Base 


Memory  for  OS 


Figure  3.  Memory  Layout  for  IBM  NASTRAN 


ADDRESS  OF  BEGINNING  OF  NASTRAN  LOAD  MODULE  =  04A009B0  HEX 
ADDRESS  OF  END  OF  NASTRAN  LOAD  MODULE  =  0514D000  HEX 

ADDRESS  OF  BEGINNING  OF  10  LOAD  MODULE  =  8000CF30  HEX 


ADDRESS  OF  MEMORY  OBTAINED 
LENGTH  OF  MEMORY  OBTAINED 


=  0514D000  HEX 
=  0D17F000  HEX 


MEMORY  TO  FREE  FOR  OS 
MEMORY  TO  USE  FOR  OPENCORE 
MEMORY  TO  USE  FOR  IN-MEM  DATA  BASE 


=  00032000  HEX 
=  005DC000  HEX 
=  0CB70FF8  HEX 


ADDRESS  OF  BEGINNING  OF  OPENCORE 
ADDRESS  OF  END  OF  OPENCORE 
ADDRESS  OF  BEGINNING  OF  IN-MEM.  DATA  BASE 
ADDRESS  OF  END  OF  IN-MEM.  DATA  BASE 


=  0514DOOO  HEX 
=  05729000  HEX 
=  05729008  HEX 
=  12299FF8  HEX 


(NOTE:  ALL  UNITS  ABOVE  ARE  IN  BYTES) 


Figure  4.  Example  of  NASTRAN  Printed  Summary  on  Log  File 


219672576  DEC 

204800  DEC 
6144000  DEC 
213323768  DEC 
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MEMORY  DATA  BASE  DIRECTORY 
MAXIMUM  ENTRIES=  100  CURRENT  ENTRIES=  33 

UNIT  NAME  CURRENT  IN-MEM  DISK  TRAILER 

NUMBER  BLOCKS  BLOCKS 


1 

20 

PHIG 

0 

41 

2 

6 

SIP 

0 

1 

3 

22 

SCRATCH 1 

0 

1 

4 

9 

CASECC 

0 

1 

5 

4 

BGPDP 

0 

2 

6 

5 

SCRATCH2 

0 

39 

7 

14 

QG 

0 

3 

8 

12 

KGGX 

0 

406 

9 

10 

MI 

0 

1 

10 

19 

MPT  A 

0 

1 

11 

18 

SCRATCH6 

0 

26 

12 

17 

OEIGS 

0 

1 

13 

7 

GPL 

0 

2 

14 

11 

OPHIG 

0 

3 

15 
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Figure  5.  Example  of  In-Memory  Data  Base  Directory 
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A  POWERFUL  ENHANCEMENT  TO  THE  DMAP  ALTER  CAPABILITY 


by 

P.  R.  Pamidi 
RPK  Corporation 
Columbia,  Maryland 


SUMMARY 

A  powerful  enhancement  to  the  DMAP  alter  capability  has  been  developed  by  RPK  Corpora 
tion  and  is  available  on  all  RPK-supported  versions  of  COSMIC/NASTRAN.  This  enhancement 
involves  the  addition  of  two  new  alter  control  cards,  called  INSERT  and  DELETE,  to  the  Executive 
Control  Deck.  These  cards  allow  for  DMAP  alters  to  be  made  by  referencing  DMAP  statements  by 
their  module  names  rather  than  by  their  statement  numbers  in  the  rigid  format  DMAP  sequence.  This 
allows  for  increased  user  convenience  and  flexibility  and  makes  alters  more  meaningful  to  the  user. 
In  addition,  DMAP  alter  packages  employing  the  new  alter  control  cards  will  be  much  less 
susceptible  to  future  changes  in  rigid  foimat  DMAPs  than  alter  packages  employing  the  standard 
ALTER  control  cards.  The  usage  of  the  new  cards  is  illustrated  by  examples. 


INTRODUCTION 

The  most  general  way  of  using  NASTRAN  is  by  means  of  a  user-written  Direct  Matrix 
Abstraction  Program  (DMAP).  However,  in  order  to  relieve  the  user  of  the  burden  of  constructing 
DMAP  sequences  for  each  of  his  analyses,  standard  DMAP  sequences,  called  rigid  formats,  are 
provided  with  NASTRAN  to  handle  different  types  of  analyses. 

It  is  often  desirable  for  the  user  to  make  changes  to  the  DMAP  sequences  in  the  rigid  formats. 
This  can  be  accomplished  by  using  the  DMAP  alter  capability  (see  Reference  1).  Typical  situations 
that  may  call  for  using  DMAP  alters  are  to  schedule  an  exit  prior  to  completion,  to  request  additional 
intermediate  output,  to  schedule  diagnostic  printing  of  tables  and/or  matrices  and  to  modify  the 
standard  solution  sequences  by  the  addition  and/or  deletion  of  functional  modules. 


DESCRIPTION  OF  THE  STANDARD  ALTER  FEATURE 

DMAP  alters  to  the  rigid  formats  are  accomplished  by  means  of  ALTER  control  cards  in  the 
Executive  Control  Deck  (Reference  1).  ALTER  control  cards  are  of  two  types. 

An  ALTER  control  card  of  the  form 


ALTER  n  $ 

indicates  that  DMAP  instructions  following  this  card  are  to  be  inserted  after  DMAP  instruction 
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number  n  in  the  rigid  format  under  consideration. 

An  ALTER  control  card  of  the  form 

ALTER  nl,n2  $  (nl  <=  n2) 

indicates  that  DMAP  instructions  in  the  range  nl  through  n2  (inclusive)  in  the  rigid  format  are  to  be 
deleted  and  replaced  by  any  DMAP  instructions  that  may  follow  this  card. 

The  ALTER  control  cards  serve  a  very  useful  purpose.  However,  the  usage  of  these  cards  has 
the  following  two  distinct  disadvantages: 

*  The  ALTER  control  cards  refer  to  DMAP  statements  by  their  numbers  in  the  rigid  format 
DMAP  sequence.  This  does  not  give  a  ‘  ‘feel”  for  the  DMAP  changes  as  the  numbers  do  not 
have  any  particular  significance  to  the  user.  In  other  words,  the  ALTER  control  cards  are 
by  design  really  more  programmer-oriented  than  user-oriented. 

*  Because  the  ALTER  control  cards  refer  to  DMAP  statements  by  numbers,  they  are  very 
susceptible  to  changes  in  rigid  formats  from  one  release  to  a  subsequent  one.  Thus,  even 
minor  changes  in  a  rigid  format,  particularly  in  the  earlier  portion  of  the  DMAP  sequence, 
may  require  wholesale  revamping  of  the  ALTER  cards  in  an  alter  package. 


DESCRIPTION  OF  THE  ENHANCED  ALTER  FEATURES 

In  order  to  overcome  the  above  shortcomings,  RPK  has  developed  a  very  attractive  enhance¬ 
ment  to  the  DMAP  alter  capability.  This  enhancement  involves  the  addition  of  two  new  alter  control 
cards,  called  INSERT  and  DELETE,  for  use  in  the  Executive  Control  Deck.  This  feature  is  available 
on  all  RPK-supported  versions  of  COSMIC/NASTRAN,  beginning  with  the  1988  release. 

Detailed  descriptions  of  the  INSERT  and  DELETE  cards  are  given  in  Appendix  A.  An  updated 
description  of  the  ALTER  card  that  takes  into  account  the  existence  of  the  INSERT  and  DELETE 
cards  is  also  given  in  that  appendix. 

The  INSERT  control  ^ard  identifies  a  specific  module  in  the  rigid  format  DMAP  sequence  after 
which  DMAP  instructions  following  the  INSERT  card  are  to  be  inserted.  The  DELETE  control  card 
identifies  a  specific  module  (or  a  range  of  modules)  in  the  rigid  form  MAP  sequence  which  is 
(or  are)  to  be  deleted  and  replaced  by  any  DMAP  instructions  that  may  *  "v  the  DELETE  card. 

The  INSERT  control  card  is  specified  as  follows: 

INSERT  specmod  $ 

where  specmod  has  the  following  general  fora: 
nommod  [(r)]  [,  n] 
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The  various  terms  in  the  above  specification  have  the  following  meanings  and  connotations: 

nommod  »■>  the  nominal  module  (alphanumeric  value,  no  default}-  This  must  be  a  valid 
name  of  a  module  in  the  rigid  format  DMAP  sequence.  (It  must  be  recognized  in 
this'  context  that  ever)’  DMAP  inscructi'n  or  DMA1  statement  is  a  module  with  a 
specific  name.) 

r  is  the  occurrence  flag  (integer  ^  0,  default  =  1).  Tne  rth  occurrence  of  the  nominal 

module  in  the  rigid  format  DM  AP  sequence  (counting  from  the  beginning  of  the 
DMAP  sequence)  defines  the  reference  module. 

The  default  value  of  1  for  'he  occurrence  flag  implies  that  the  reference  module 
is  the  firr  •„  occurrence  of  the  nominal  module  in  the  rigid  format  DMAP  sequence. 

n  is  the  offset  flag  (integer,  default  =  0).  The  DMAP  module  that  is  offset  from  the 

reference  module  by  n  DMAP  statements  in  the  rigid  format  DMAP  sequence 
defines  the  specified  module. 

Depending  upon  the  sign  of  the  offset  flag  n,  the  specified  module  may  follow  (n 
positive)  or  precede  (n  negative;  the  reference  module  in  the  rigid  format  DMAP 
sequence.  The  default  value  of  0  for  tlr  'fset  flag  implies  that  the  reference 
module  is  the  specified  module. 

speemod  is  the  module  defined  as  per  the  above  scheme  after  which  DMAP  statements 
following  the  INSERT  card  are  to  be  inserted. 

The  DELETE  control  card  is  specified  as  follows: 

DELETE  speemod  j  [,  speemod^  ]  $ 

where  speemod.  has  the  following  general  form: 

nommod.  f(r.)j[,  n.J 


The  various  terms  in  the  above  specification  have  the  same  meanings  and  connotations  as  in  the 
case  of  the  INSERT  control  card. 

If  only  speemodj  is  specified  on  a  DELETE  card,  it  identifies  a  single  specified  module  that  is 
to  be  delaed  and  replaced  by  any  DMAP  statements  that  may  follow  the  DELETE  card.  If  both 
speemodj  and  specmod2  are  specified,  they  identify  a  range  of  specified  modules  that  are  to  be 
deleted  and  replaced  by  any  DMAP  statements  that  may  follow  the  DELETE  card. 
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USAGE  OF  THE  ENHANCED  ALTER  FEATURES 


The  new  INSERT  and  DELETE  cards  described  above  and  the  existing  ALTER  card  together 
form  a  triad  of  alter  control  cards  available  to  the  user  on  all  RPK-supported  versions  of  COSMIC/ 
NASTRAN.  When  using  these  cards,  the  most  important  requirement  that  must  be  satisfied  is  the 
one  that  has  always  existed  with  the  usage  of  the  standard  ALTER  control  cards,  namely,  that  the 
DMAP  statements  (or  modules)  that  are  referenced  on  the  ALTER,  INSERT  and  DELETE  control 
cards  in  an  alter  package  (eithei  explicitly  or  implicitly,  when  a  range  is  specified)  must  be 
referenced  in  ascending  order  of  their  occurrence  in  the  rigid  format  DMAP. 

The  new  INSERT  and  DELETE  cards  can  be  used  in  conjunction  with  standard  ALTER  control 
cards  and  any  combination  of  the  three  control  cards  is  acceptable.  As  a  corollary,  RPK-supported 
versions  of  COSMIC/N  ASTRAN  also  support  alter  packages  containing  only  ALTER  control  cards. 
This  ensures  compatibility  with  standard  versions  of  COSMIC/NASTRAN. 

Table  1  lists  several  examples  of  the  usage  of  alter  control  cards  on  RPK-supported  versions  of 
COSMIC/NASTRAN.  For  each  example,  the  table  shows  an  alter  using  standard  ALTER  control 
cards  and  indicates  suggested  usages  by  which  the  same  alter  can  be  accomplished  by  employing 
equivalent  INSERT  or  DELETE  control  cards.  (All  of  the  examples  in  the  table  refer  to  the  DMAP 
sequence  of  Rigid  Format  3  -  Displacement  Approach,  Release  1988,  that  is  given  in  Appendix  B.) 

RPK  encourages  the  users  of  its  versions  of  COSMIC/NASTRAN  to  use  the  new  altei  control 
cards.  In  order  to  demonstrate  their  usage,  RPK  has  modified  the  data  for  all  NASTRAN 
Demonstration  Problems  that  contain  ALTER  cards  by  commenting  out  all  such  cards  and  replacing 
them  by  equivalent  INSERT  and/or  DELETE  cards.  This  is  reflected  in  the  data  and  the  output  of 
the  NASTRAN  Demonstration  Problems  that  are  delivered  to  RPK’s  clients. 


ADVANTAGES  OF  THE  ENHANCED  ALTER  FEATURES 

The  new  alter  control  cards  have  several  distinct  advantages  over  the  standard  ALTER  control 
card.  Some  of  these  a  e  obvious  from  the  examples  in  Table  1 .  These  advantages  are  discussed  in 
detail  below. 

1.  Increased  User  Friendliness  and  Convenience 


Unlike  standard  ALTER  control  cards,  which  refer  to  DMAP  instructions  by  their  statement 
numbers  in  the  rigid  'ormat  DMAP,  the  new  INSERT  and  DELETE  control  cards  refer  to  DMAP 
statements  by  their  module  names.  This  is  certainly  more  user  friendly  and  convenient  as  DMAP 
module  names  are  clearly  more  meaningful  to  the  user  than  DMAP  statement  numbers.  The  user  thus 
has  a  better  “feel”  for  the  alters. 

2.  Increased  Flexibility 


The  general  manner  in  which  the  specified  module  is  identified  on  the  INSERT  and  DELETE 
control  cards  gives  tremendous  flexibility  to  the  user. 
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(Jsing  ALTER  cards,  a  given  alter  can  be  accomplished  only  by  a  very  specific  and  unique 
ALTER  card.  However,  by  using  INSERT  (or  DELETE)  cards,  the  same  alter  can  be  accomplished 
in  several  apparently  different,  but  equivalent,  ways.  The  user  thus  has  a  choice  of  ways  in  which 
he  can  specify  a  given  alter. 

The  above  point  can  be  best  illustrated  by  an  example.  Consider  Example  2  in  Table  1  which 
indicates  that  alters  are  to  be  made  by  inserting  new  DMAP  statements  after  DMAP  statement  no. 
69  (the  PARAM  module  just  before  the  READ  module)  in  the  DMAP. 

By  using  ALTER  control  cards,  the  above  alter  can  be  accomplished  only  by  using  the  following 
very  specific  and  unique  alter: 


ALTER  69  $ 

However,  by  using  INSERT  control  cards,  the  above  alter  can  be  accomplished  in  many 
different  ways.  The  following  are  some  ways  of  achieving  this  (the  first  two  alters  given  below  are 
shown  in  Table  1  for  this  example): 

INSERT  DPD,2  $ 

INSERT  READ.-l  $ 

INSERT  RBMG4, 4$ 

INSERT  SDR  1,-5$ 

INSERT  BEGIN, 68  $ 

INSERT  END, -30  $ 

All  of  the  above  INSERT  cards  (the  last  two  INSERTS  shown  above  are  admittedly  extreme 
examples),  though  different  in  appearance,  are  all  equivalent  since  they  identify  the  same  specified 
module,  namely,  the  PARAM  module  just  before  the  READ  module  in  the  DMAP.  They  differ  from 
one  another  in  that  each  of  them  employs  a  different  reference  module  in  conjunction  with  a 
correspondingly  different  offset  flag. 

In  a  similar  manner,  if  alters  involve  the  deletion  of  DMAP  modules,  DELETE  control  cards 
can  be  used  to  accomplish  it  in  more  than  one  way. 

Assume  that  the  number  of  DMAP  statements  in  a  rigid  format  DMAP  sequence  is  m.  Then, 
by  using  INSERT  control  cards,  a  given  alter  of  the  form 

ALTER  n  $  or  ALTER  n,n  $ 

can  be  accomplished  in  m  different,  but  equivalent,  ways  by  selecting  each  of  the  m  DMAP  modules 
in  the  rigid  format  as  a  reference  module  with  an  appropriate  offset  flag. 

In  a  similar  manner,  a  given  alter  of  the  form 

ALTER nl,n2$  (nl#n2) 

can  be  accomplished  in  m  different  ways  since  each  of  nl  and  n2  can  be  specified  in  m  different, 
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but  equivalent,  ways. 

3.  Reduced  Susceptibility  to  Future  Changes  in  Rigid  Format  PMAPs 

Because  the  new  alter  control  cards  refer  to  DMAP  statements  by  their  module  names,  alter 
packages  that  contain  these  new  caMs  will  be  much  less  susceptible  to  future  changes  in  rigid  formats 
than  if  standard  ALTER  cards  were  used. 

Consider,  for  instance,  Example  1  in  Table  1.  This  involves  the  insertion  of  new  DMAP 
statements  after  the  SDR2  module.  (This  is  the  normal  alter  that  is  used  to  obtain  NASTRAN  output 
for  subsequent  interface  with  post-processing  programs  like  PATRAN.) 

The  only  way  of  accomplishing  the  above  alter  by  using  standard  ALTER  control  cards  is  to  use 
the  following  alter : 


ALTER  79  $ 

The  above  alter  will  no  longer  be  valid  if  future  changes  to  the  rigid  format  involve  additions 
or  deletions  to  the  DMAP  ahead  of  the  SDR2  module.  In  that  case,  the  new  DMAP  statement  number 
for  the  SDR2  module  must  be  used  in  the  above  alter. 

By  using  INSERT  control  cards,  the  above  alter  can  be  accomplished  by  the  following  alter: 

INSERT  SDR2  $ 

Because  the  above  alter  refers  to  the  DMAP  module  by  name,  it  will  be  unaffected  by  any  future 
additions  or  deletions  to  the  DMAP. 


CONCLUDING  REMARKS 

'"his  paper  has  described  a  powerful  enhancement  to  the  DMAP  alter  capability  that  has  been 
developed  by  RPK  Corporation  and  that  is  available  on  all  RPK-supported  versions  of  COSMIC/ 
NASTRAN  i nis  enhancement  involves  the  addition  of  two  new  alter  control  cards,  caked  INSERT 
and  DELETE,  to  the  Executive  Control  Deck.  These  cards  allow  for  DMAP  alters  to  be  made  by 
referencing  DMAP  statements  by  their  module  names  rather  than  by  their  statement  numbers  in  the 
rigid  fonnat  DMAP  sequence.  This  allows  for  increased  user  convenience  and  flexibility  and  makes 
alters  more  meaningful  to  the  user.  In  addition,  DMAP  alter  packages  employing  the  new  alter 
control  cards  will  be  much  less  susceptible  to  future  changes  in  rigid  format  DMAPs  than  alter 
packages  employing  the  standard  ALTER  control  cards.  The  usage  of  the  new  cards  is  illustrated 
by  examples. 
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Table  1.  Examples  on  the  Usage  of  Alter  Control  Cards 

(see  Note  1  below) 


Example 

no. 

Alters  using 
ALTER  cards 

Equivalent  alters  using 

INSERT  or  DELETE  cards 
(see  Note  2  below) 

1 

ALTER  79  $ 

INSERT  SDR2  $ 

2 

ALTER  69  $ 

INSERT  DPD,2 

INSERT  READ,-1  $ 

3 

ALTER  31  $ 

INSERT  EMAQ)  $ 

4 

ALTER  30  $ 

INSERT  EMA,2  $ 

INSERT  EMA(2),-1  $ 

5 

ALTER  82,82  $ 

DELETE  SCAN  $ 

6 

ALTER  2,3  $ 

DELETE  PRECHK/fILE  $ 

7 

ALTER  32,35  $ 

DELETE  GPWG,-1  ,GPWG,2  $ 

8 

ALTER  84,87  $ 

DELETE  PLOT(2),-l,PLOT(2),2  $ 

Notes:  1.  All  of  the  alters  given  above  refer  to  the  DM AP 
sequence  of  Rigid  Format  3  -  Displacement 
Approach,  Release  1988,  given  in  Appendix  B. 

2.  The  equivalent  alters  using  INSERT  or  DELETE 
cards  shown  above  are  only  suggested  usages. 

As  explained  in  the  paper,  alters  using  INSERT 
or  DELETE  control  cards  are  not  unique  and 
can  be  accomplished  in  more  than  one  way. 
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APPENDIX  A 

Description  of  Alter  Control  Cards 
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Executive  Control  Card  ALTER  -  Rigid  Format  DMAP  Sequence  Alteration  Request 


Description:  Requests  the  Direct  Matrix  Abstraction  Program  (DMAP)  sequence  of  a  rigid  format  to 
be  changed  by  additions,  deletions  or  substitutions. 


Format  and  Examples: 
ALTER |K1  [,  K2]j$ 
ALTER  22  $ 

ALTER  5,5  $ 

ALTER  38,45  $ 

ALTER  25,19  $ 


Option 

K1  only  DMAP  statement  number  (Integer  >  0)  after  which  DMAP  instructions  following 

the  ALTER  ca^d  are  to  be  inserted 

K1  and  K2  DMAP  statement  numbers  (Integer  >  0)  identifying  a  single  DMAP  statement  or  a 

range  of  DMAP  statements  to  be  deleted  and  replaced  by  any  DMAP  instructions 
that  may  follow  the  ALTER  card.  See  Remark  5. 


Remarks: 


1.  See  the  descriptions  of  the  INSERT  and  DELETE  cards  for  alternate  ways  of 
specifying  DMAP  sequence  alteration  requests. 

2.  The  DMAP  statements  referenced  on  ALTER,  INSERT  and  DELETE  cards  (either 
explicitly  or  implicitly,  when  a  range  is  specified)  must  be  referenced  in 
ascending  order  of  their  occurrence  in  the  rigid  format  DMAP. 

3.  See  Volume  2,  Sections  2,  3  and  4  for  the  listings  of  all  rigid  format  DMAP 
sequences. 

4.  See  Volume  2,  Section  1.1.5  for  the  manner  in  which  DMAP  alters  are  handled  in 
restarts. 

5.  If  both  K1  and  K2  are  specified  and  K1  f  K2,  a  range  of  DMAP  statements  is 
implied  and  either  of  them  can  be  less  than  the  other.  If  K1  *  K2»  a  single  DMAP 
statement  is  implied. 


2.2-4  (09/01/88) 
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Executive  Control  Card  DELETE  -  Rigid  Format  DMAP  Sequence  Alteration  Request 


Description:  Requests  the  Direct  Matrix  Abstraction  Program  (DMAP)  sequence  of  a  rigid  format  to 
be  changed  by  deletions  or  substitutions. 

Format  and  Examples: 

DELETE  specmod^  [,  specmodgj  $ 

where  specmod^  has  the  following  general  form: 
nomnodj  [ ( ri ) ]  [,  n^ 

DELETE  SSG1  $ 

DELETE  EMA(2)  $ 

DELETE  READ.l  $ 

DELETE  SDR2(2) ,-l  $ 

DELETE  SSG3.REPT  $ 

DELETE  GP2.GP3.-1  $ 

DELETE  SMA3,1,TA1,-1  $ 

DELETE  REPT,2,REPT,3  $ 


Option 


nonmod^ 


r 


i 


Nominal  module  (Alphanumeric  value,  no  default).  See  Remark  5. 

Occurrence  flag  (Integer  >  0,  default  =  1).  The  r*h  occurrence  of  the 

nominal  module  in  the  rigid  format  DMAP  sequence  (counting  from  the  beginning 
of  the  DMAP  sequence)  defines  the  reference  module.  See  Remark  6. 

Offset  flag  (Integer,  default  =  0).  The  DMAP  module  that  is  offset  from  the 
reference  module  by  n^  DMAP  statements  in  the  rigid  format  DMAP  sequence 

defines  the  specified  module.  See  Remark  7. 


specmod,  only  Specified  module  defined  as  per  the  above  scheme  that  is  to  be  deleted  and 

replaced  by  any  DMAP  instructions  that  may  follow  the  DELETE  card 


specmod,  and  Range  of  specified  modules  defined  as  per  the  above  scheme  that  are  to  be 

cnormnH  deleted  and  replaced  by  any  DMAP  instructions  that  may  follow  the  DELETE 

"  oa2  card.  See  Remark  8. 


Remarks:  1.  See  the  description  of  the  ALTER  card  for  an  alternate  way  of  specifying  DMAP 

sequence  deletions  and  substitutions. 

2.  The  DMAP  statements  referenced  on  ALTER,  INSERT  and  DELETE  cards  (either 

explicitly  or  implicitly,  when  a  range  is  specified)  must  be  referenced  in 
ascending  order  of  their  occurrence  in  the  rigid  format  DMAP. 


2.2-8a  (09/01/88) 
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3.  See  Volume  2,  Sections  2,  3  and  4  for  the  listings  of  all  rigid  format  DMAP 
sequences. 

4.  See  Volume  2,  Section  1.1.5  for  the  manner  in  which  DMAP  alters  are  handled  in 
restarts. 

5.  The  nominal  module  nommod..  must  be  a  valid  name  of  a  DMAP  module  in  the  rigid 
format  DMAP  sequence. 

6.  The  default  value  of  1  for  the  occurrence  flag  r.  implies  that  the  reference 
module  is  the  first  occurrence  of  the  nominal  module  in  the  rigid  format  DMAP 
sequence. 

7.  The  value  of  the  offset  flag  n.  may  be  positive,  negative  or  0.  A  positive 
value  means  that  the  specified  module  follows  the  reference  module  by  n^  DMAP 
statements  in  the  rigid  format  DMAP  sequence.  A  negative  value  indicates  that  the 
specified  module  precedes  the  reference  module  by  ni  DMAP  statements  in  the  DMAP 
sequence.  A  value  of  0  {  the  default)  implies  that  the  reference  module  is  the 
specified  module. 

8.  If  both  specmodj  and  specmod2  are  specified,  it  implies  a  range  of  DMAP 
statements  and  either  of  them  can  precede  the  other  in  the  rigid  format  DMAP 
sequence. 


2.2-8b  (09/01/88) 
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Executive  Control  Card  INSERT  -  Rigid  Format  DMAP  Sequence  Alteration  Request 


Description:  Requests  the  Direct  Matrix  Abstraction  Program  (DMAP)  sequence  of  a  rigid  format  to 
be  changed  by  additions. 


Format  and  Examples: 

INSERT  specmod  $ 

where  specmod  has  the  following  general  form: 
nommod  [(r)]  [,  n] 


INSERT  GP4  $ 

INSERT  EMA{2)  $ 
INSERT  READ , 1  $ 
INSERT  SDR2(2)  ,-1  $ 


Option 

nommod  Nominal  module  (Alphanumeric  value,  no  default).  See  Remark  5. 

r  Occurrence  flag  (Integer  >  0,  default  =  1).  The  r*^  occurrence  of  the 

nominal  module  in  the  rigid  format  DMAP  sequence  (counting  from  the  beginning 
of  the  DMAP  sequence)  defines  the  reference  module.  See  Remark  6. 


n  Offset  flag  (Integer,  default  =  0).  The  DMAP  module  that  is  offset  from  the 

reference  module  by  n  DMAP  statements  in  the  rigid  format  DMAP  sequence 
defines  the  specified  module.  See  Remark  7. 


specmod 


Specified  module  defined  as  per  the  above  scheme  after  which  DMAP  statements 
following  the  INSERT  card  are  to  be  inserted. 


Remarks: 


1.  See  the  description  of  the  ALTER  card  for  an  alternate  way  of  specifying  DMAP 
sequence  additions. 

2.  The  DMAP  statements  referenced  on  ALTER,  INSERT  and  DELETE  cards  (either 
explicitly  or  implicitly,  when  a  range  is  specified)  must  be  referenced  in 
ascending  order  of  their  occurrence  in  the  rigid  format  DMAP. 

3.  See  Volume  2,  Sections  2,  3  and  4  for  the  listings  of  all  rigid  format  DMAP 
sequences. 

4.  See  Volume  2,  Section  1.1.5  for  the  manner  in  which  DMAP  alters  are  handled  in 
restarts. 

5.  The  nominal  module  nommod  must  be  a  valid  name  of  a  DMAP  module  In  the  rigid 
format  DMAP  sequence. 

6.  The  default  value  of  1  for  the  occurrence  flag  r  implies  that  the  reference  module 
is  the  first  occurrence  of  the  nominal  module  in  the  rigid  format  DMAP  sequence. 


2.2-13a  (09/01/88) 
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7.  The  value  of  the  offset  flag  n  may  be  positive,  negative  or  0.  A  positive  value 
means  that  the  specified  module  follows  the  reference  module  by  n  DMAP  statements 
in  the  rigid  format  DMAP  sequence.  A  negative  value  indicates  that  the  specified 
module  precedes  the  reference  module  by  n  DMAP  statements  in  the  DMAP  sequence.  A 
value  of  0  (the  default)  implies  that  the  reference  module  is  the  specified 
module. 


2.2-13b  (09/01/88) 
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APPENDIX  B 

DMAP  Listing  of  Rigid  Format  3  -  Displacement  Approach,  Release  1988 
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LEVEL  2.0  NASTRAN  DMAP  COMPILER  -  SOURCE  LISTING 


OPTIONS  IN  EFFECT  GO  ERR=2  LIST  NODECK  NOREF  NOOSCAR 


1 

BEGIN 

DISP  03  -  NORMAL  MODES  ANALYSIS  ■  APR.  1988  $ 

2 

PRECHK 

ALLS 

3 

FILE 

LAMA--APPEND/PHIA=APPEND  $ 

4 

PARAM 

//‘MPY7CARDNO/0/0  $ 

5 

GPi 

GEOM1,GEOM2,/GPL,EQEXIN,GPDT,CSTM1BGPDT1SIL/S,N,LUSET/ 
NOGPDT/ALWAYS=-1  $ 

6 

PLTTRAN 

BGPDT,SIL/BGPDP,SIP/LUSET/S,N,LUSEP  $ 

7 

GP2 

GEOM2.EQEXIN/ECT  $ 

8 

PARAML 

PC D B//* P R  ES7///J U M  P PLOT  $ 

9 

PURGE 

PLTSETX,PLTPAR,GPSETS,ELSETS/JUMPPLOT  $ 

10 

COND 

P1,JUMPPLOT  $ 

11 

PLTSET 

PCDB.EQEXIN.ECT/PLTSETX.PLTPAR.GPSETS.ELSETS/S.N.NSIL/ 
S,N,JUMPPLOT  $ 

12 

PRTMSG 

PLTSETX//  $ 

13 

PARAM 

//‘MPY7PLTFLG/1/1  $ 

14 

PARAM 

//*MPY7PFILE/0/0  $ 

15 

COND 

P1.JUMPPLOT  $ 

16 

PLOT 

PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN1SIL„ECT„„/PLOTX1/ 
NSIL/LUSET/S,N,JUMPPLOT/S,N,PLTFLG/S,N,PFILE  $ 

17 

PRTMSG 

PLOTX1//S 

18 

LABEL 

PI  $ 

19 

GP3 

GEOM3,EQEXIN,GEOM2/,GPTT/NOGRAV  $ 

20 

TA1 

ECT,EPT1BGPDT,SIL1GPTT,CSTMIMPT/ESTIGEIIGPECT„,MPTX>PCOMPS, 
EPTX/LUSET/S.N.NOSIMP/I/S.N.NOGENL/GENEL/S.N.COMPS  $ 

21 

EQUIV 

MPTX,MPT/COMPS/EPTX,EPT/COMPS  $ 

22 

COND 

ERROR4.NOSIMP  $ 

23 

PARAM 

//*ADD7NOKGGX/1/0  $ 

24 

PARAM 

//*ADD7NOMGG/1/0  $ 
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25  EMG 


EST,CSTM,MPT1DITIGE0M21/KELM,KDICT,MELM)MDICT„,/SIN,N0KGGX/ 
S,N,NOMGG////C,Y,COUPM  ASS/C  .Y.CPBAR/ 
C,Y,CPROD/C,YICPQUAD1/CIY1CPQUAD2/C,Y,CPTRIA1/C)Y)CPTRIA2/ 
C.Y.CPTUBE/C.Y.CPQDPLT/C.Y.CPTRPLT/C.Y.CPTRBSC/ 
C.Y.VOLUME/C.Y.SURFACE  $ 

26  PURGE  KGGX/NOKGGX  $ 

27  COND  JMPKGG.NOKGGXS 

28  EMA  GPECT.KDICT.KELM/KGGX  $ 

29  LABEL  JMPKGG  $ 

30  COND  ERROR1.NOMGG  $ 

31  EMA  GPECT,MDICT,MELM/MGG/-1/C.Y1WTMASS=1.0$ 

32  COND  LGPWG.GRDPNT  $ 

33  GPWG  BGPDP1CSTM,EQEXIN,MGG/OGPWG/V,Y,GRDPNT=-1/C,Y.WTMASS$ 

34  OFP  OGPWG . //S.N.CARDNO  $ 

35  LABEL  LGPWG  $ 

36  EQUIV  KGGX.KGG/NOGENl.  $ 

37  COND  LBL11.NOGENL  $ 

38  SMA3  GEI.KGGX/KGG/LUSET/NOGENL/NOSIMP  $ 

39  LABEL  LBL11  $ 

40  GPSTGEN  KGG.SIL/GPST  $ 

41  PARAM  //*MPY*/NSKIP/0/0  $ 

42  GP4  CASECC,GEOM4,EQEXIN,GPDT,BGPDT1CSTM,GPST/RG,YSIUSET1 

ASET,OGPST/L.USET/S,N,MPCF1/S,N1MPCF2/S>N,SINGLE/S,N,OMIT/ 
S.N.REACT/S.N.NSKIP/S.N.REPEAT/S.N.NOSET/S.N.NOL/S.N.NOA/ 
C.Y.ASETOUT/C.Y.AUTOSPC  $ 

43  OFP  OGPST„„,//S,N,CARDNO  $ 

44  COND  ERROR3.NOL  $ 

45  PURGE  KRR.KLR.DM.MLR.MR/REACT/GM/MPCFI/GO/OMIT/KFS/SINGLE/QG/NOSET  $ 

46  EQUIV  KGG,KNN/MPCF1/MGG,MNN/MPCF1  $ 

47  COND  LBL2.MPCF1  $ 

48  MCE1  USET.RG/GM  $ 

49  MCE2  USET,GM,KGG,MGG„/KNN,MNN„  $ 
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50  LABEL 

51  EQUIV 

52  COND 

53  SCE1 

54  LABEL 

55  EQUIV 

56  EQUIV 

57  COND 

58  SMP1 

59  SMP2 

60  LABEL 

61  COND 

62  RBMG1 

63  RBMG2 

64  RBMG3 

65  RBMG4 

66  LABEL 

67  DPD 

68  COND 

69  PARAM 

70  READ 

71  OFP 

72  COND 

73  OFP 

74  SDR1 

75  COND 

76  EQMC 


LBL2$ 

KNN.KFF/SINGLE/MNN.MFF/SINGLE  $ 

LBL3.SINGLE  $ 

USET,KNN1MNNt,/KFF,KFSI>MFF„  $ 

LBL3  $ 

KFF.KAA/OMIT  $ 

MFF.MAA/OMIT  $ 

LBL5.0MIT  $ 

USET.KFF,  ,,/GO,  KAA.KOO.LOO . $ 

USET,GO,MFF/MAA  $ 

LBL5$ 

LBL6, REACT  $ 

USET.KAA.MAA/KLL.KLR.KRR.MLL.MLR.MRRS 
KLL/LLL  $ 

LLL.KLR.KRR/DM  $ 

DM.MLL.MLR.MRR/MR  $ 

LBL6  $ 

DYNAMICS, GPL.SIL.USET/GPLD.SILD.USETD..  ?  r),  ‘ 

LUSET/LUSETD/NOTFL/NODLT/NOPSDL/NOFRL' 
NONLFT/NOTRL/S.N.NOEED//NOUE  $ 

ERROR2.NOEED  $ 

//*MPY7NEIGV/1/-1  $ 

KAA.MAA.MR.DM.EED.USET.CASECC/LAMA.PHlA.MI.OEIGSrMODES*/ 
S.N.NEIGV  $ 

OEIGS . //S,N,CARDNO  $ 

FINIS.NEIGV  $ 

LAMA„,„//S,N,CARDNO  $ 

USET„PHIA„1G01GM„KFS„/PHIG,,QG/1/*REIG*  $ 

NOMPCF.GRDEQ  $ 

CASFv''C,EQEXIN,GPL1BGPDT,SIL1USET>KGG,GM>PHIG,LAMA,QG,CSTM/ 
OQM  i/V,Y,OPT=0/V,Y,GRDEQ/-1  $ 
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77 

OFP 

OQM1 . //S,N,CARDNO  $ 

78 

LABEL 

NOMPCF  $ 

79 

SDR2 

CASECC>CSTM,MPT(DIT,EQEXiN1SILmBGPDP>LAMA,QG,PHIG,EST,„ 
PCOMPS/.OQG1  .OPHIG.OES1  ,OEF1  ,PPHIG,OES1  L.OEF1  U 
‘REIG7///C0MPS  $ 

80 

OFP 

OPHIG.OQG1  ,OEF1  ,OES1  ..//S.N.CARDNO  $ 

81 

OFP 

OEF1L,OES1L„)1//S1N,CARDNO  $ 

82 

SCAN 

CASECC.OES1  ,OEF1/OESF1/*RF*  $ 

83 

OFP 

OESF1 . //S.N.CARDNO  $ 

84 

COND 

P2.JUMPPLOT  $ 

85 

PLOT 

PLTPAR)GPSETS1ELSETS,CASECC,BGPDT,EQEXIN.SIP„PPHIG.GPECT,OES1 
OES1L./PLOTX2/NSIL/LUSEP/JUMPPLOT/PLTFLG/S.N.PFILE  $ 

86 

PRTMSG 

PLOTX2 //  $ 

87 

LABEL 

P2$ 

88 

JUMP 

FINIS  $ 

89 

LABEL 

ERROR1  $ 

90 

PRTPARM 

//-1/*MODES‘S 

91 

LABEL 

ERROR2  $ 

92 

PRTPARM 

//-2/*MODES*  $ 

93 

LABEL 

ERROR3 $ 

94 

PRTPARM 

//-3/*MODES*  $ 

95 

LABEL 

ERROR4$ 

96 

PRTPARM 

//-4/*MODES*  $ 

97 

LABEL 

FINIS  $ 

98 

PURGE 

DUMMY/ALWAYS  $ 

99 

END 

$ 

186 


A  NASTRAN  DMAP  ALTER  FOR  LINEAR  BUCKLING 


ANALYSIS  UNOER  DYNAMIC  LOADING 


Robert  A.  Aiello  and  Joseph  E.  Grady 
National  Aeronautics  and  Space  Administration 
Lewis  Research  Center 
Cleveland,  Ohio  44135 


SUMMARY 

A  unique  modification  to  the  NASTRAN  solution  sequence  for  transient 
analysis  with  direct  time  integration  (COSMIC  NASTRAN  rigid  format  9)  has  been 
developed  and  incorporated  into  a  DMAP  alter.  This  DMAP  alter  calculates  the 
buckling  stability  of  a  dynamically  loaded  structure,  and  is  used  to  predict 
the  onset  of  structural  buckling  under  stress-wave  loading  conditions.  The 
modified  solution  sequence  incorporates  the  linear  buckling  analysis  capability 
(rigid  format  5)  of  NASTRAN  into  the  existing  Transient  solution  rigid  format 
in  such  a  way  as  to  provide  a  time  dependent  eigensolution  which  is  used  to 
assess  the  buckling  stability  of  the  structure  as  it  responds  to  the  impulsive 
load.  As  a  demonstration  of  the  validity  of  this  modified  solution  procedure, 
the  dynamic  buckling  of  a  prismatic  bar  subjected  to  an  impulsive  longitudinal 
compression  is  analyzed  and  compared  to  the  known  theoretical  solution.  In 
addition,  a  dynamic  buckling  analysis  is  performed  for  the  analytically  less 
tractable  problem  of  the  localized  dynamic  buckling  of  an  initially  flawed  com¬ 
posite  laminate  under  transverse  impact  loading.  The  addition  of  this  DMAP 
alter  to  the  transient  solution  sequence  in  NASTRAN  facilitates  the  computa¬ 
tional  prediction  of  both  the  time  at  which  the  onset  of  dynamic  buckling 
occurs  in  an  impulsively  loaded  structure,  and  the  dynamic  buckling  mode 
shapes  of  that  structure. 


INTRODUCTION 

Composite  laminates  that  are  subjected  to  static,  dynamic,  or  fatigue 
loading  are  known  to  undergo  delamination,  or  debonding,  between  the  laminated 
plies  of  which  they  are  composed.  Delamination  causes  a  significant  loss 
stiffness  and  strength,  and  can  considerably  reduce  the  structural  integrity 
of  a  laminate.  Once  this  damage  as  occurred,  a  compressive  stress  near  the 
delamination  can  induce  local  billing  of  the  delaminated  plies.  This  buck¬ 
ling  may  then  cause  further  extension  of  the  delamination  and  progressive  wea¬ 
kening  of  the  ’'minate.  In  lieu  of  actual  experimental  testing,  the  ability 
to  computationally  predict  the  onset  of  delamination  buckling  is  necessary  for 
evaluating  the  durability  of  many  composite  structures. 

The  delamination  buckling  phenomenon  has  been  observed  experimentally 
under  both  static  and  fatigue  loading  conditions  (Refs.  1  to  4),  and  several 
analytical  and  numerical  methods  have  been  proposed  (Refs.  5  and  6)  to  model 
this  damage  mechanism.  Finite-element  approaches  (Refs.  7  to  9)  have  beer 
used  as  the  basis  for  these  analyses,  but  no  comparable  numerical  methods  exist 
to  analyze  delimination  buckling  which  occurs  as  a  result  of  an  impulsively 
applied  load.  That  is  the  topic  of  this  paper. 
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Experimental  observations  of  dynamic  delamination  buckling  in  transversely 
impacted  laminates  were  reported  earlier  (Refs.  10  to  12),  using  high-speed 
photography  and  simultaneous  strain  measurements  of  transversely  impacted  lami¬ 
nates.  A  related  numerical  analysis  (Ref.  10)  indicated  that  the  buckling 
behavior  must  be  accounted  for  in  the  computational  model  in  order  to  accu¬ 
rately  assess  the  damage  tolerance  capability  of  the  laminate.  This  motivated 
the  present  development  of  a  NASTRAN  DMAP  alter  analysis  procedure  that  can 
be  used  to  computationally  predict  the  onset  of  buckling  instability  under 
transient  stress-wave  loading. 

The  objectives  of  this  paper  are,  therefore,  (1)  to  outline  the  dynamic 
buckling  analysis  computational  procedure  and  its  implementation  into  the  DMAP 
alter  sequence  (2)  d  r~onstrate  the  validity  of  the  dynamic  buckling  analysis 
procedure  by  analyzing  a  simple  one-dimensional  example  problem  with  a  known 
solution,  and  (3)  apply  the  dynamic  buckling  analysis  to  the  analytically  less 
tractable  problem  of  the  localized  dynamic  buckling  of  an  initially  flawed 
composite  laminate  under  transverse  impact  loading. 

The  NASTRAN  transient  solution  sequence,  when  modified  as  indicated  in 
the  following  section,  provides  a  new  computational  tool  that  can  be  used  to 
predict  both  the  time  at  which  the  onset  of  dynamic  buckling  occurs  and  the 
dynamic  buckling  mode  shapes  of  an  impulsively  loaded  structure. 


Dynamic  Buckling  Analysis 

Linear  buckling  analysis  requires  solution  of  the  eigenvalues  problem: 

[[K]  +  XCM  {$}  =  o]  (1) 

where 

CK ]  structural  stiffness  matrix; 

[Ka]  stress  stiffness  matrix 

X,  {<}>}  denote  the  associated  eigenvalue  and  eigenvector 

In  terms  of  the  buckling  analysis,  the  eigenvector  {<j>}  represents  the 
buckling  mode  shape,  and  the  associated  eigenvalue  X  indicates  the  multiple 
of  [K0]  needed  to  make  equation  (1)  singular,  that  is,  to  cause  buckling.  In 
a  one-dimensional  column  buckling  problem,  each  scalar  eigenvalue  satisfying 
equation  (1)  physically  represents  the  nondimensional  ratio: 


where  a  is  the  compressive  stress  in  the  column,  A  is  the  cross-sectional 
area,  and  P*  is  the  buckling  load.  If  the  eigenvalue  has  the  critical  value 
of  unity  (cA  =  P*),  buckling  in  the  associated  mode  occurs. 

In  the  dynamic  case,  the  terms  of  CK03  in  Eq.  (1)  vary  with  time  as  the 
stress  waves  propagate  through  the  structure.  The  eigensolution  of  (1)  then 
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becomes  time  dependent,  and  can  be  used  to  track  the  buckling  stability  as  a 
function  of  time.  Figure  1  is  a  simplified  representation  of  a  modified 
direct-time  integration  solution  sequence  in  which  the  updated  stress  stiffness 
matrix  is  formed  after  each  time  step  At,  and  the  associated  eigenvalue  prob¬ 
lem  in  equation  (1)  is  solved.  The  eigenvalue  is  now  a  function  of  time,  and 
it  indicates  the  onset  of  buckling  when  it  reaches  the  critical  value  of  unity. 
Figure  2  is  the  DMAP  alter  which  incorporates  this  dynamic  buckling  algorithm 
into  the  existing  transient  solution  sequence. 


DMAP  Procedure 

The  functions  of  the  DMAP  statements  shown  in  Fig.  2  are  summarized 
here.  In  line  2  the  number  of  columns  in  the  UPV  matrix  is  determined.  This 
matrix  contains  the  displacement,  velocity  and  acceleration  vectors  for  each 
degree  of  freedom  at  each  time  step.  Lines  2  through  16  follow  the  Bubble 
Algorithm  approach  of  Ref.  13.  The  DMI  column  matrices  TIPI  and  BAS1  from  the 
Bulk  Data  deck,  each  initially  sized  to  contain  more  rows  than  columns  in  the 
UPV  matrix,  are  used  to  form  two  new  column  matrixes,  MNTRJ  and  BOOT I .  The 
number  of  rows  in  each  of  these  matrices  is  equal  to  the  number  of  columns  in 
the  UPV  matrix.  The  monitor  matrix  MNTRJ  initially  contains  unity  in  the 
first  row  and  zero  in  the  remaining  rows.  The  BOOTI  matrix  always  contains 
unity  in  the  last  row  and  zero  in  the  remaining  rows. 

Having  determined  the  size  of  the  partitioning  matrices,  the  eigenvalue 
extraction  data  is  determined  in  line  19  and  the  buckling  calculations  are  now 
performed.  At  the  beginning  of  each  pass  through  the  RAALOOP,  corresponding 
to  each  integration  time  step  of  the  requested  output,  the  current  column 
position  is  compared  with  the  number  of  columns  in  the  UPV  matrix,  lines  25 
through  27,  ending  the  loop  at  the  end  of  the  available  data.  Continuing 
within  the  loop  the  unity  value  of  the  MNTRJ  matrix  is  advanced  three  rows, 
lines  28  through  31,  pointing  to  the  location  of  the  current  displacement 
vector  in  the  UPV  matrix.  The  MNTRJ  matrix  is  used  to  partition  the  UPV 
matrix,  line  32,  stripping  the  column  containing  the  displacements.  These 
displacements  are  used  in  the  DSMG1  module,  line  33,  to  form  the  time-varying 
global  differential  stiffness  matrix,  KDGG.  The  reduced  differential  stiff¬ 
ness  matrix,  KDAA,  is  then  formed  by  eliminating  the  restrained  and  dependent 
degrees  of  freedom,  line  35  through  45,  and  in  line  47  this  matrix  is  multi¬ 
plied  by  negative  one,  forming  the  KDAAM  matrix.  The  stiffness  matrices  KAA 
and  KDAAM  are  then  used  in  the  READ  module,  line  48,  to  solve  for  the  eigen¬ 
values  and  eigenvectors  for  each  integration  time  step  initially  requested  for 
output. 

The  eigenvalue  for  each  time  step  is  printed  by  line  52.  Opt i ona 1 1 y , 
lines  53  and  54  may  be  used  to  print  eigenvalues  and  eigenvalue  extraction 
data.  Line  58  may  be  used  to  print  eigenvectors.  The  RAALOOP  is  ended  at 
line  64. 

The  computationally  intensive  nature  of  this  analysis  can  be  made  more 
efficient  by  slightly  modifying  the  DAMP  procedure.  A  promising  method  is  to 
perform  the  buckling  analysis  at  specified  time  intervals  in  the  transient 
solution  sequence  rather  than  after  every  time  step,  as  is  done  here.  The 
length  of  the  time  interval  can  be  progressively  decreased  as  the  eigenvalue 
begins  to  change  more  rapidly,  or  as  the  critical  value  of  unity  is  approached. 
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This  technique  will  significantly  reduce  the  number  of  individual  buckling 
analyses  performed,  and  hence  wPI  result  in  a  more  computationally  efficient 
algorithm. 


Example  Problem 

In  order  to  establish  the  validity  of  this  analysis  procedure,  a  simple 
problem  with  a  known  solution,  as  given  in  Ref.  14,  was  analyzed.  The  propaga¬ 
tion  of  a  longitudinal  compressive  pulse  in  a  long  prismatic  bar,  shown  in 
Fig.  3,  was  modelled. 

Assuming  a  one-inch  diameter  aluminum  bar  of  uniform  circular  cross  sec¬ 
tion  the  elastic  and  geometric  constants  are: 


E  =  10  x  106  psi 

(3) 

4  4 

I  =  irr  =  ir  in. 

4  64 

(4) 

2  2 

A  =  irr  =  ir  in. 

4 

(5) 

9  cvin"4  lb  *  s2 
p  =  2 . 5x10  . 

in. 

(6) 

L  =  100  in. 

(6) 

where  E  is  the  Young's  Modulus,  I  is  the  area  moment  of  inertia,  A  is  the 
cross-sectional  area,  p  is  the  mass  density,  and  L  is  the  length  of  the  bar. 

The  lowest  buckling  load  is  given  by  (Ref.  15): 

P*  =  Al  =  121  lb  (7) 


As  shown  in  Fig.  3,  the  applied  load  is  identical  to  the  static  buckling  load 
in  Eq.  (7). 

Using  the  above  material  constants,  the  bar  wave  velocity  is  given  by 
(Ref.  14): 


C 


o 


200,000 


in. 

sec 


(8) 


so  the  time  for  the  longitudinal  compression  wave  to  travel  from  the  impact 
point  to  the  distal  end  of  the  bar  is 


t  =  k-  =  500  ps 
0  Co 


(9) 
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A  NASTRAN  model  consisting  of  ten  rod  elements,  for  a  total  of  ten  uncon¬ 
strained  axial  degrees  of  freedom,  was  used  to  model  the  longitudinal  impact 
of  the  bar.  The  integration  time  step  was  taken  as 

At  =  4  Toe-  =  12,5  !iS  (10) 

o 

to  insure  a  numerically  converged  solution.  The  propagation  of  the  compres¬ 
sion  wave  from  the  point  of  impact  to  the  clamped  end  of  the  bar  is  depicted 
in  Figs.  4(a)  and  (b). 

The  compressive  pulse,  traveling  at  a  speed  C0,  reaches  the  complete 
length  of  the  bar  at  time  t0  (500  ps).  Because  the  distal  end  of  the  bar  is 
held  fixed,  the  incident  compressive  pulse  reflects  (Ref.  15)  as  a  pulse  of 
the  same  sign  (compressive)  which  superimposes  on  the  existing  uniform  compres¬ 
sive  stress  in  the  bar.  Figures  4(c)  and  (d)  depict  the  progression  of  the 
reflected  pulse,  traveling  at  a  speed  C0,  back  to  the  proximal  end  of  bar, 
effectively  doubling  the  corroressi ve  load  supported  by  the  bar.  Reflecting 
from  the  proximal  (free)  en  as  a  pulse  of  opposite  sign  (tensile)  which  super¬ 
imposes  on  the  existing  compressive  stress,  the  bar  returns  to  its  original 
fully  stressed  state  at  time  3t0,  (1500  ps)  as  shown  in  Figs.  4(e)  and  (f). 
Finally,  in  Figs.  4(g)  and  (h;,  the  tensile  pulse  reflects  as  a  tensile  pulse 
from  the  fixed  end  which  temporal  1/  cancels  the  uniform  compression  at  time 
4t0  (2000  ps),  leaving  the  bar  inst./itaneously  unstressed.  The  stress  states 
depicted  in  Figs.  4(i)  and  (j),  for  „11  practical  purposes  identical  to  those 
in  Figs.  4(a)  and  (b),  indicate  that,  assuming  no  damping  exists,  the  above 
cycle  will  repeat  itself  indefinitely. 

The  corresponding  time  dependence  of  the  lowest  eigenvalue  is  shown  in 
Fig.  5.  The  critical  value  of  1.0  is  reached  at  times  t0,  3t0,  5t0,  7t0,.  .  . 
(500,  1500,  2500,  3500  ps , .  .  .);  and  whenever  the  bar  supports  a  uniform  com¬ 
pressive  stress  corresponding  to  its  buckling  load.  Similarly,  the  eigenvalue 
reaches  to  its  lower  limit  of  0.5  at  times  2tp,  6t0 ,  1 0to , .  .  .  (1000,  3000, 
5000  ps,.  .  .);  and  whenever  the  stress  state  is  double  that  of  the  buckling 
load.  The  eigenvalue  becomes  large  (theoretically  infinite)  at  time  0,  4t0, 
8t0,.  .  .  (0,  2000,  4000,  6000  ps , .  .  .)  ;  and  whenever  the  bar  is  unstressed. 

Superimposed  on  the  finite  element  results  in  Fig.  4  is  the  theoretical 
1-D  solution,  assuming  the  stress  wave  propagates  nondi speri vely  at  a  constant 
speed  C0  and  reflects  from  the  boundaries  as  described  above.  Good  agree¬ 
ment  exists  between  the  two  solutions,  even  when  relatively  few  finite  ele¬ 
ments  are  used  to  model  the  bar.  The  time  behavior  of  the  lowest  eigenvalue, 
shown  in  Fig.  5,  can  be  interpreted  directly  in  terms  of  the  transient  stress 
distribution  in  Fig.  4.  Since  the  applied  compressive  load  is  exactly  equal 
to  the  first  static  buckling  load  in  Eq.  (7),  and  no  strain-rate  dependence 
was  assumed  in  the  finite  element  model,  buckling  is  predicted  whenever  the 
bar  is  uniformly  stressed  with  its  critical  static  buckling  stress,  which 
occurs  at  odd  multiples  of  t0,  as  shown  in  Fig.  4. 

In  a  practical  application,  the  above  analysis  is  valid  only  until  the 
onset  of  buckling  occurs,  since  no  post-buckling  behavior  has  yet  been  included 
in  the  finite  element  model.  The  time  itegration  was  extended  in  the  example 
problem  only  to  physically  interpret  the  results  of  the  dynamic  buckling 
analysis. 
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Dynamic  Delamination  Buckling 


The  example  problem  could  have  been  solved  without  the  use  of  a  finite 
element  analysis  because  of  the  simple  non-dispersi ve  nature  of  the  longitudi¬ 
nal  wave  propagation.  However,  the  propagation  of  flexural  waves  in  beam-like 
structures  is  dispersive  by  nature,  and  as  such  would  pose  a  formidable  chal¬ 
lenge  without  the  use  of  some  type  of  computational  simulation.  In  Ref.  11, 
experimental  measurements  of  delamination  duckling  in  graphite/epoxy  composite 
laminates  were  reported.  The  beam-like  experimental  specimens  had  simulated 
delaminations  (ply  disbonds)  embedded  in  them  during  the  fabrication  process. 
They  were  held  clamped  at  both  ends  and  impacted  transversely,  as  depicted 
schematically  in  Fig.  6.  The  subsequent  flexure-induced  local  buckling  of  the 
delamination  was  recorded  using  strain  gages  and  high  speed  photography.  A 
finite  element  model  of  the  initially  flawed  experimental  specimen  is  used 
here  to  verify  that  the  dynamic  delamination  buckling  phenomenon  can  be  pre¬ 
dicted  using  computational  simulation.  Figure  6  shows  the  geometry  and  loading 
conditions  for  the  initially  flawed  composite  laminate  subjected  to  a  trans¬ 
verse  impact.  The  finite  element  discretization  of  this  laminate  near  the 
embedded  flaw  is  shown  schematically  in  Fig.  7.  The  layered  structure  of  the 
composite  laminate  is  represented  by  layers  of  shell  elements.  Multipoint  con¬ 
straints  are  imposed  on  the  degrees  of  freedom  between  neighboring  nodal  points 
in  the  thickness  direction  such  that  simple  beam  bending  displacements  are 
enforced;  that  is,  plane  sections  remain  plane  and  no  strain  exists  in  the 
thickness  direction.  These  constraints  are  removed  in  the  delaminated  region 
to  allow  the  delaminated  plies  to  separate  from  the  main  laminate  when  a  local 
compression  occurs  in  that  area,  as  shown  in  Fig.  7.  More  complete  details  of 
the  finite  element  modeling  procedure  are  given  in  Ref.  12. 

The  progression  of  the  flexural  waves  out  from  the  central  impact  point 
to  the  boundaries  of  the  laminate  are  shown  in  Fig.  8.  As  the  disturbance 
passes  through  the  flawed  region  at  100  to  150  ps  after  impact,  the  delaminated 
ligament  separates  from  the  laminate  and  begins  to  support  a  compressive  longi¬ 
tudinal  stress  which  increases  in  magnitude  until  it  causes  a  local  buckling 
of  the  delamination.  The  eigenvalue  behavior  and  corresponding  buckling  mode 
are  shown  in  Fig.  9.  As  the  laminate  deforms  under  the  applied  load,  the 
eigenvalue  decreases  monotonical ly  in  magnitude  until  it  reaches  the  critical 
value  of  unity,  indicating  the  onset  of  buckling  at  approximately  190  ps  from 
impact.  The  corresponding  buckling  mode  shape  is  also  depicted  in  the  figure. 

These  results  correspond  closely  with  experimental  observations.  Both 
the  buckling  mode  shape  and  the  time  at  which  buckling  occurs  are  in  good 
agreement  with  measurements  taken  from  high  speed  photographs.  A  detailed  com¬ 
parison  of  finite  element  results  and  experimental  measurements  is  given  in 
Ref.  11. 


CONCLUSIONS 

A  dynamic  delamination  buckling  analysis  procedure  has  been  incorporated, 
in  the  form  of  a  DMAP  alter,  into  the  transient  analysis  rigid  format  of 
NASTRAN.  With  this  enhancement,  NASTRAN  can  be  used  to  calculate  the  time  at 
which  dynamic  buckling  occurs  and  the  buckling  mode  shape  of  a  structure  sub¬ 
jected  to  dynamic  loading.  Comparison  of  the  calculated  results  with  a  known 
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solution  supports  the  validity  of  the  analysis.  Application  of  the  dynamic 
buckling  analysis  to  the  more  complex  problem  of  transverse  impact  of  beam¬ 
like  laminate  was  demonstrated,  and  the  results  phenomenoTogical ly  duplicated 
those  reported  in  earlier  experiments. 
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FIGURE  1.  -  DYNAMIC  BUCKLING  ANALYSIS  SOLUTION  SEQUENCE. 
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ALTER  146  $$$$$  COSMIC  NASTRAN  RF  09  RELEASE  1987  $$$$$ 

PARAML  UPV//XTRAILERX/1/V,N,N0CUPV  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

COPY  TIPI  /  CLUSI/  0  $  $ 

COPY  TIPI  /  BUBLI/  0  $  $ 

05  PARAM  //XSUBX/SHIFT/NOCUPV/  1  $  $ 

LABEL  BUBTOP  $<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<«$  BUTLER/PAMIDI  $ 

FILE  BUBLI=SAVE/  CLUSI=SAVE  $  $  $ 

PARTN  BUBLI,, BAS1/DUMMY, , ,/7  $  $  BUBBLE  $ 

MERGE  DUMMY,,,,, TIP1/BUBLJ/7  $  $  $ 

10  ADD  CLUSI, BUBLJ/CLUSJ/  $  $  ALGORITHM  $ 

SHIT  CH  BUBLJ,BUBLI//-1  6  $  $ 

SNITCH  CLUSJ , CLUSI//-1  $  $  $ 

REPT  BUBTOP, SHIFT  $»>>»»»»»»>»»»»»>$  $ 

PARTH  TIPI,, CLUSJ/, MNTRI,,/7  $  $ 

15  PARTN  BUBLJ, , CLUSJ/, BOOTI , ,/7  $  $ 

COPY  MNTRI/MNTRJ/  0  $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

TA1  ECT , EPT, BGPDT , SIL , GPTT, CSTM,/X1 , X2, X3, ECPT , GPCT , , ,/LUSET/ 

NOSIKP/O/NOGENL/GENEL  $ 

DPD  DYNAMICS, GPL, SIL, USET/GPLD, SILD, USETD, ,,,,,, EED, EQDYN/V,  N, 

20  LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/ 

V , N, NONLFT/V, N, NOTRL/S, N, NOEED/C, N, 123/V, N»  NOUE  $ 

COND  ERRORS, NOEED  $ 

PARAM  //XN0PX/V,N,C0LNUM=1  $ 

LABEL  RAALOOP  $<<««<««<<<<  TOP  OF  RAALOOP  «<<«««««<<$ 
25  PARAM  //XADDX/C0LNUM/C0LNUM/3  $  $ 

PARAM  //XLEX/V,N,GETOUT/NOCUPV/COLNUM  $  $ 

COND  QUITRAA,GETOUT  $  $ 

LABEL  CORTOP  $<<<<<<<<<<<«<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<«$  $ 

PARTN  MNTRJ , , BOOTI/DUM1 1 , , ,/7  $  MOVE  THE  COLUMN  MARKER  $  $ 

30  MERGE  DUMll,,,,,MNTRI/MNTRJ/7  $  THREE  PLACES  $  $ 

REPT  CORTOP,  2  $>>>>>>>>>>>>>>>>»>>>>>>>>>»>>>»>»>»>»»$  $ 

PARTN  UPV, MNTRJ,/, ,COLUPV,/l  $  $ 

DSMG1  CASECC,  GPTT,  SI  L,EDT,COLUPV,CSTM, MPT, ECPT, GPCT, DIT/ 

KDGG/DSCOSET  $  $ 

35  EQUIV  KDGG, KDNN/MPCF2  $  $ 

COND  LBL2D, MPCF2  $  $ 

MCE2  USET ,GM,KDGG, , ,/KDNN, , ,  $  $ 

LABEL  LBL2D  $  $ 

EQUIV  KDNN, KDFF/ SINGLE  $  $ 

40  COtO  LuLSU, SINGLE  $  $ 

SCE?.  USET, KDNN,,, /KDFF, KDFS,  $  $ 

LABEL  LBL3D  $  $ 

EQUIV  KDFF, KDAA/OMIT  $  $ 

COND  LBL5D, OMIT  $  $ 

45  SMP2  USET , GO, KDFF/KDAA  $  $ 

LABEL  LBL5D  $  $ 

ADD  KDAA,/KDAAM/C,N,C-1.0,O,n)/C,N, CO. 0,0.0)  $  $ 

READ  KAA,KDAAM, ,, EED, USET, CASECC/LAMA, PHIA, MI, OEIGS/C,N, BUCKLING/ 

S , N, NEIGV/C, N, 2  $•  $ 

50  COND  ERROR4 , NEIGV  $  $ 

PARAML  LAMA//XDTIX/2/3/V, N, EIGV  $  $ 

PRTPARM  //O/XEIGVX  $  $ 

$OFP  OEIGS,LAMA, , , ,//S,N,CARDNO  $  $ 

$OFP  LAMA, , , , ,//S,N,CARDNO  $  $ 

55  SDR1  USET, , PHIA,,, GO, GM, ,KFS, ,/PHIG, ,BQG/C,N, 1/C, N, BKL1  $  $ 

SDR2  CASECC, CSTM, MPT, DIT, EQEXIN, SIL, , , BGPDT, LAMA, BQG, PHIG, EST, ,/, 

OBQG1  ,OPHIG,OBESl,OBEFl, PPHIG/C, N, BKL1  $  $ 

$OFP  OPHIG,  OBQG1 , OBEF1 , OBES1 , ,//S,N,CARDNO  $  $ 

COND  P3>  JUMPPLOT  $  $ 

60  PLOT  PLTPAR, GPSETS, ELSETS, CASECC, BGPDT, EQEXIN, SIL, ,PPHIG  , GPECT, OBES1/ 
PLOTX3/V, N, NSIL/V, N, LUSET/V, N, JUMPPLOT/V, N, PLTFLG/5,N,PFILE  $ 


PRTMSG  PLOTX3  //  $ 

LABEL  P3  $ 

REPT  RAALOOP,  1000  $>»»» 

65  JUMP  QUITRAA  $ 

LABEL  ERRORS  $ 

PRTPARM  //C,N, -3/C, N, BUCKLING  $ 
JUMP  QUITRAA  $ 

LABEL  ERROR4  $ 

70  PRTPARM  //C,N, -4/C, N, BUCKLING  $ 
LABEL  QUITRAA  $ 

JUMP  FINIS  $ 

ENDALTER 


BOTTOM  OF  RAALOOP  »»>>»»»»>>$ 


BULK  DATA 


DM  I 

TIPI 

0 

2 

1 

1 

1000 

DM  I 

TIri 

1 

1 

i.O 

DM  I 

BAS1 

0 

2 

1 

1 

’  000 

DM  I 

BAS1 

1 

1000 

1.0 

FIGURE  2.  -  DYNAMIC  BUCKlIN,  DMAP  AUER  FOR  TRANSIENT  SOLUTION  SEQUENCE. 
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FIGURE  3. 
IMPACT 


t 

0.1  IN. 


'2  IN.  2  IN. 
■15  IN. - 


FIGURE  6.  -  COMPOSITE  LAMINATE  WITH  INITIAL  DELAMINATION. 


FIGURE  7.  -  FINITE  ELEMENT  REPRESENTATION 
OF  COMPOSITE  LAMINATE  SHOWING  LOCAL  BUCK¬ 
LING  OF  THE  DELAMINATED  PLIES, 
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DISPLACCWNI.  in. 


FIRST  BUCKLING  MODE  AT  190  USEC 


ORIGINAL 

DEFORMED 


FIGURE  9.  -  TIME  DEPENDENCE  OF  LOWEST  EIGENVALUE  FOR  COM¬ 
POSITE  LAMINATE  SUBJECTED  Ij  TRANSVERSE  IMPACT. 
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IMPROVEMENTS  TO  THE  CONTINUE  FEATURE  IN  TRANSIENT  ANALYSIS 


by 

P.  R.  Pamidi 
RPK  Corporation 
Columbia,  Maryland 


SUMMARY 

The  CONTINUE  feature  in  transient  analysis  as  implemented  in  the  standard  release  of 
COSMIC,' NASTR  AN  has  inherent  errors  associated  with  it.  As  a  consequence,  the  results  obtained 
by  a  CONTINUEd  restart  run  do  not,  in  general,  match  the  results  that  would  have  been  obtained 
in  a  single  run  without  the  CONTINUE  feature.  These  inherent  errors  have  been  eliminated  by 
improvements  to  the  restart  logic  that  have  been  developed  by  RPK  Corporation  and  that  are 
available  on  all  RPK-supported  versions  of  COSMIC/NASTRAN.  These  improvements  ensure  that 
the  results  of  a  CONTINUEd  transient  analysis  run  are  the  same  as  those  of  a  non-CONTINUEd  run. 
In  addition,  the  CONTINUE  feature  has  been  extended  to  transient  analysis  involving  uncoupled 
modal  equations.  The  improvements  and  enhancement  have  been  illustrated  by  examples. 


INTRODUCTION 

In  transient  analysis,  it  is  frequently  necessary  to  continue  the  integration  of  equations  beyond 
the  last  (or  from  any  earlier  intermediate)  output  time  for  which  the  results  were  obtained  in  a 
previous  run.  Thus,  the  initial  time  for  the  new  run  is  to  be  a  specified  output  time  of  the  previous 
run  and  the  initial  conditions  for  the  new  run  are  to  be  the  same  as  the  conditions  existing  at  the 
specified  output  time  of  the  previous  run.  The  CONTINUE  feature  in  NASTRAN  makes  it  possible 
to  do  this  without  re-executing  the  entire  problem. 

The  CONTINUE  feature  involves  performing  a  checkpoint  run  of  a  transient  analysis  problem 
followed  by  a  restart  run  with  the  aim  of  continuing  the  integration  from  the  last  (or  from  any  earlier 
intermediate)  output  time  for  which  the  results  were  obtained  in  the  checkpoint  run.  The  details  of 
the  usage  of  this  feature  are  given  in  Vol.  2,  Section  2.9.6  of  the  NASTRAN  User’s  Manual 
(Reference  1).  The  theoretical  aspects  of  this  feature  are  discussed  in  Section  11.4.2  of  the 
NASTRAN  Theoretical  Manual  (Reference  2)  and  the  programming  aspects  are  detailed  in  Section 
4.65.7.3  of  the  NASTRAN  Programmer’s  Manual  (Reference  3). 


EQUATIONS  FOR  TRANSIENT  ANALYSIS 

The  equations  used  in  transient  analysis  are  discussed  in  detail  in  References  2  and  3.  For  the 
sake  of  convenience,  they  are  summarized  in  the  Appendix. 
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The  most  important  equation  employed  in  transient  analysis  is  Equation  (1)  given  in  the 
appendix.  After  the  integration  is  started,  this  equation  is  used  to  continue  the  integration  by 
computing  the  displacements  at  successive  times  until  there  is  a  change  in  the  time  step.  In  order  to 
compute  the  displacements  at  each  time,  this  equation  requires,  in  addition  to  the  loads  at  that  time, 
the  displacements  and  the  loads  at  the  two  previous  times. 

When  there  is  a  change  in  the  time  step  employed  for  the  integration,  Equation  (2)  in  the 
appendix  is  used  to  compute  the  displacements  for  the  first  time  after  the  time  step  change.  It  is 
important  to  note  that  this  equation  is  employed  only  once  for  each  time  step  change.  Equation  (1) 
is  then  employed  to  resume  the  integration  until  there  is  another  time  step  change.  Every  time 
Equation  (2)  is  employed,  it  requires,  in  addition  to  the  loads  at  that  time,  the  displacements  at  the 
three  previous  times  and  the  loads  at  the  previous  time. 


CURRENT  IMPLEMENTATION  OF  THE  CONTINUE  FEATURE 

When  the  CONTINUE  feature  is  employed  in  the  standard  release  of  COSMIC/NASTRAN  to 
restart  a  transient  analysis  problem,  Equation  (3)  in  the  appendix  is  used  to  start  the  integration  from 
the  specified  time.  Equation  (1)  or  (2),  as  appropriate,  is  then  used  to  continue  the  process.  In  order 
to  start  the  integration,  Equation  (3)  uses  the  displacements,  velocities  and  accelerations  at  the 
specified  output  time  of  the  checkpoint  run.  Unlike  Equations  (1)  and  (2),  Equation  (3)  uses  neither 
the  loads  at  the  specified  output  time  nor  any  displacements  at  solution  times  prior  to  that  output  time. 

The  CONTINUE  feature,  as  described  above,  is  based  on  the  inherent  assumption  that  the  output 
times  of  the  checkpoint  run  do  not  include  all  of  the  solution  times  of  the  integration.  In  other  words, 
it  is  assumed  that  the  TSTEP  bulk  data  card  (Reference  1 )  in  the  checkpoint  run  involves  one  or  more 
non-unity  skip  factors  for  output.  Asa  result,  the  CONTINUE  feature  initiates  the  integration  in  the 
restart  run  by  considering  the  conditions  (namely,  the  displacements,  velocities  and  accelerations) 
only  at  the  specified  output  time  of  the  previous  run;  it  does  not  take  into  account  the  conditions  at 
solution  times  just  before  that  output  time  because  the  latter  conditions  are  assumed  to  be  not 
available  to  the  restart  run. 

The  above  approach  to  the  CONTINUE  feature  introduces  inherent  errors  into  the  procedure 
(Reference  2).  As  a  consequence,  the  results  of  a  CONTINUEd  restart  run  do  not,  in  general,  match 
the  results  that  would  have  been  obtained  in  a  single  run  without  using  the  CONTINUE  feature. 

It  can  also  be  seen  from  Equation  (3)  and  the  associated  Equations  (3a)  through  (3d)  that  the 
initial  time  step  used  in  a  CONTINUEd  run  can  affect  its  results.  As  a  result,  the  errors  mentioned 
above  may  be  magnified  further  if  the  initial  time  step  in  the  CONTINUEd  restart  run  is  not  the  same 
as  that  used  in  the  checkpoint  run  just  before  the  restart  (Reference  2). 

In  addition  to  the  above  deficiency,  the  current  implementation  of  the  CONTINUE  feature  has 
the  fuilhei  limitation  mat  ii  is  restricted  to  coupled  equations  and  is  not  applicable  to  transient 
analysis  involving  uncoupled  modal  equations. 
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IMPROVED  IMPLEMENTATION  OF  THE  CONTINUE  FEATURE 


RPK  has  developed  improvements  to  the  CONTINUE  feature  that  have  removed  the  deficien¬ 
cies  described  above.  This  involved  extensive  changes  to  the  code  in  the  TRD  (Transient  Analysis 
-  Displacement  approach)  module,  including,  in  particular,  the  addition  of  an  extra  output  data  block 
to  this  module,  and  minor  related  changes  elsewhere.  These  changes  also  required  minor 
modifications  to  the  DMAP  of  Displacement  Approach  Rigid  Formats  9  (Direct  Transient  Re¬ 
sponse)  and  12  (Modal  Transient  Response).  These  improvements  are  available  on  all  RPK- 
supported  versions  of  COSMIC/NASTRAN,  beginning  with  the  1988  release. 

The  highlights  of  RPK’s  improvements  are  described  below. 

1 .  The  loads  and  displacements  for  all  solution  times  of  the  checkpoint  run,  as  well  as  the  time 
steps  employed  to  obtain  each  of  those  solutions,  are  made  available  to  the  restart  run.  With 
this  information,  the  restart  run  using  the  CONTINUE  feature  now  initiates  the  continuation 
of  the  integration  using  the  same  procedure  as  that  used  in  a  non-CONTINUEd  run.  This 
applies  even  in  those  cases  where  the  time  step  used  in  the  CONTINUEd  restart  run  is 
different  from  that  used  in  the  earlier  checkpoint  run  just  before  restart.  As  a  result,  Equation 
(3)  is  no  longer  used  and  the  restart  run  uses  Equation  (1)  or  (2),  as  appropriate,  to  initiate 
the  integration. 

2.  The  key  to  providing  the  information  required  for  the  above  procedure  is  the  new  data  block 
output  from  the  TRD  module.  There  are  two  possible  cases  that  need  to  be  considered  with 
regard  to  the  generation  of  this  data  block. 

Case  1 .  The  TSTEP  bulk  data  card  in  the  checkpoint  run  has  no  non-unity  skip  factors 

In  this  case,  the  output  times,  by  definition,  include  all  solution  times.  As  a  result,  the 
displacements  for  all  solution  times  are  available  from  the  standard  UDVT  (displacement- 
velocity-acceleration)  matrix  data  block  resulting  from  the  TRD  module  in  the  checkpoint 
run.  Accordingly,  the  new  data  block  in  this  case  is  designed  to  contain  only  the  loads  for 
all  solution  times  as  well  as  the  time  steps  used  to  obtain  each  of  the  solutions.  This  case  is 
identified  in  the  new  data  block  (for  subsequent  use  in  the  restart  run)  by  setting  the  fourth 
word  of  its  six-word  trailer  to  1. 

Case  2.  The  TSTEP  bulk  data  card  in  the  checkpoint  run  consists  of  one  or  more  non-unity 
skip  factors 

Since  the  output  times  in  this  case  are  only  a  subset  of  the  solution  times,  the  new  data  block 
is  designed  to  contain  not  only  the  loads  but  also  the  displacements  for  all  solution  times,  as 
well  as  the  time  steps  used  to  obtain  each  of  those  solutions.  Further,  the  new  data  block  in 
this  case  has  an  additional  special  record  that  has  information  relating  each  output  time  to  its 
corresponding  solution  time.  Tnis  case  is  identified  in  the  new  data  block  by  setting  the 
fourth  word  of  its  six-word  trailer  to  0. 

3.  Using  the  information  provided  by  the  new  data  block  described  above,  the  restart  run  using 
the  improved  CONTINUE  feature  determines  whether  all  of  the  loads  and  displacements 
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required  for  continuing  the  integration  are  available  just  from  this  data  block  alone  (Case  2 
above)  or  from  both  this  data  block  and  the  UDVT  data  block  (Case  1  above). 

It  should  be  emphasized  that  the  new  data  block  is  generated  only  in  checkpoint  runs  since 
its  sole  use  is  in  a  subsequent  restart  ran  using  the  CONTINUE  feature.  Also,  it  should  be 
noted  that,  even  when  it  is  generated,  this  data  block  does  not  require  any  new  computations 
since  all  of  the  information  it  needs  is  already  available. 

4.  The  restart  run  then  determines  if  the  time  step  to  be  used  for  continuing  the  integration  in 
the  restart  run  is  the  same  as,  or  different  from,  the  time  step  that  was  used  for  obtaining  the 
solution  for  the  specified  output  time  of  the  checkpoint  run.  If  the  former  condition  is  true, 
Equation  (1)  in  the  appendix  is  used  to  initiate  the  integration.  If  the  latter  condition  is  true, 
Equation  (2)  in  the  appendix  is  used  to  initiate  the  integration.  Depending  upon  which  of 
these  two  equations  is  used,  the  required  loads  and  displacements  for  starting  the  integration 
are  retrieved  from  the  appropriate  data  block  or  data  blocks  mentioned  earlier. 

5.  The  procedure  outlined  above  for  the  CONTINUE  feature  ensures  that  the  CONTINUEd  run 
starts  the  integration  in  the  same  manner  as  the  integration  would  have  continued  had  it 
proceeded  further  in  the  original  checkpoint  run.  This  therefore  ensures  that  the  results 
obtained  by  a  CONTINUEd  run  will  be  the  same  as  those  of  a  non-CONTINUEd  run. 

6.  Separately,  RPK  has  extended  the  CONTINUE  feature  to  transient  analysis  involving 
uncoupled  modal  equations.  Since  the  equations  in  this  case  have  closed-form  solutions 
(References  2  and  3),  this  development  introduces  no  errors. 


EXAMPLES 

In  order  to  illustrate  the  improvements  to  the  CONTINUE  feature  mentioned  above,  NAS- 
TRAN  Demonstration  Problem  No.  D09-01-1 A  (Transient  Analysis  with  Direct  Matrix  Input)  was 
selected.  Two  variations  of  this  problem  with  the  same  standard  input  data,  but  with  different  sets 
of  TSTEP  bulk  data  input,  were  analyzed.  These  two  cases  are  identified  as  Examples  1  and  2. 

For  both  of  the  above  examples,  checkpoint  and  restart  runs  were  made  on  the  DEC  VAX 
version  using  the  standard  release  of  COSMIC/NASTRAN  and  on  RPK’s  CRAY  version  of 
COSMIC/NASTRAN  using  the  improvements  to  the  CONTINUE  feature  described  in  the  paper. 
The  results  of  these  analyses  are  presented  in  Table  1  (for  Example  1)  and  Table  2  (for  Example  2). 
To  facilitate  comparison  of  the  results,  the  restart  runs  were  made  from  an  intermediate  output  time 
of  the  checkpoint  runs.  It  is  quite  clear  from  these  tables  that  the  results  of  the  CONTINUEd  restart 
runs  on  RPK’s  CRAY  version  match  those  of  the  non-CONTINUEd  checkpoint  runs  perfectly, 
thereby  validating  the  improvements.  The  results  of  the  DEC  VAX  version  do  not  exhibit  the  same 
correlation. 

In  order  to  illustrate  the  extension  of  the  CONTINUE  feature  to  transient  analysis  involving 
uncoupled  modal  equations,  NASTRAN  Demonstration  Problem  No.  D12-01-1A  (Transient 
Analysis  of  a  Free  One  Hundred  Cell  Beam)  was  selected.  This  case  is  identified  as  Example  3. 
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Checkpoint  and  restart  runs  for  the  above  problem  were  made  on  RPK’s  CRAY  version 
mentioned  above.  (No  runs  were  made  on  the  standard  release  of  COSMIC/NASTRAN  as  it  does 
not  support  the  CONTINUE  feature  for  uncoupled  modal  equations.)  Again,  to  facilitate  compari¬ 
son  of  the  results,  the  restart  run  was  made  from  an  intermediate  output  time  of  the  checkpoint  run. 
The  results  are  presented  in  Table  3.  It  is  again  quite  clear  from  this  table  that  the  results  of  the 
CONTINUEd  restart  run  on  RPK’s  CRAY  version  match  those  of  the  non-CONTINUEd  checkpoint 
run  perfectly,  thereby  validating  the  new  development. 


CONCLUDING  REMARKS 

The  CONTINUE  feature  in  transient  analysis  as  implemented  in  the  standard  release  of 
COSMIC/NASTRAN  has  inherent  errors  associated  with  it.  As  a  consequence,  the  results  obtained 
by  a  CONTINUEd  run  do  not,  in  general,  match  the  results  that  would  have  been  obtained  in  a  single 
run  without  the  CONTINUE  feature.  These  inherent  errors  have  been  eliminated  by  improvements 
to  the  restart  logic  that  have  been  developed  by  RPK  Corporation  and  that  are  available  on  all  RPK- 
supported  versions  of  COSMIC/NASTRAN.  These  improvements  ensure  that  the  results  of  a 
CONTINUEd  transient  analysis  run  are  the  same  as  those  of  a  non-CONTINUEd  run.  In  addition, 
the  CONTINUE  feature  has  been  extended  to  transient  analysis  involving  uncoupled  modal 
equations.  The  improvements  and  enhancement  have  been  illustrated  by  examples. 
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TABLE  1.  RESULTS  FOR  EXAMPLE  1 


(Transient  Analysis  Involving  Coupled  Equations) 


Displacements  for  Extra  Point  10  of  NASTRAN  Demonstration  Problem  No.  D09-01-1 A 


TSTEP  Bulk  Data  Card  Input 


Checkpoint  Run:  Number  of  time  steps  =  200 

Time  increment  =  0.010  sec. 

Skip  factor  for  output  =  10 

Number  of  time  steps  =  50 
Time  increment  =0.015  sec. 

Skip  \  actor  for  output  =  5 

Restart  Run:  Number  of  time  steps  =  100 

Time  increment  =0.010  sec. 

Skip  factor  for  output  =  5 


NOTES: 

1.  The  restart  run  on  the  DEC  VAX  version  uses  the  CONTINUE  feature  available  in  the  standard 
release  of  COSMIC/NASTRAN. 

2.  The  restart  run  on  RPK’s  CRAY  version  uses  the  improved  CONTINUE  feature  described  in  the 
paper.  In  this  case,  since  the  initial  time  step  used  in  the  restart  run  (0.010  sec.)  is  the  same  as  that 
used  to  obtain  the  output  of  the  checkpoint  run  from  where  the  restart  is  initiated,  the  CONTINUE 
features  uses  Equation  (1)  in  the  appendix  to  initiate  the  integration. 

3.  The  restart  run  was  initiated  by  setting  the  parameter  NCOL  in  the  rigid  format  DMAP  to  1 1  just 
before  the  TRLG  module  (see  Volume  2,  Section  2. 9. 6  of  Reference  1  for  details),  thereby  triggering 
the  continuation  of  the  integration  from  the  1 1th  output  time  of  the  checkpoint  run. 

4.  Note  that  the  time  step  changes  from  0.010  sec.  to  0.015  sec.  at  time  =  2.000  sec. 

5.  The  %  Error  in  the  table  is  calculated  by  the  following  relationship: 

(Displacement  from  Restart  Run)  -  (Displacement  from  Checkpoint  Run)  ^ 
(Displacement  from  Checkpoint  Run) 
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Time 
(sec.) 
(See 
Note  4 
above) 


.000 

.100 

.200 

.300 

.400 

.500 

.600 

.700 

.800 

.900 

1.000 

1.100 

1.200 

1.300 
1.400 
1.500 
1.600 
1.700 
1.800 
1.900 
2.000 
2.015 
2.075 
2.150 
2.225 

2.300 
2.375 
2.450 
2.525 
2.600 
2.675 
2.750 


Results  from  DEC  VAX  Version  of 

1988  COSMIC/NASTRAN 
(See  Note  1  above) 

Displacements 

Displacements 

%  Error 

from 

from 

Checkpoint  Run 

Restart  Run 

(See 
Note  5 
above) 

0.000000E+00 

8.404462E-01 

9.099538E-01 

1.447636E-01 

See 

-7.532177E-01 

Note  3 

-9.602748E-01 

above 

-2.864749E-01 

6.501075E-01 

9.903484E-01 

4.221459E-01 

-5.332897E-01 

-5.332897E-01 

.00 

-9.995404E-01 

-9.972498E-01 

-.23 

-5.489158E-01 

-5.464416E-01 

-.45 

4.052275E-01 

4.056157E-01 

.10 

9.876569E-01 

9.856030E-01 

-.21 

6.641 117E-01 

6.614999E-01 

-.39 

-2.686209E-01 

-2.693950E-01 

.29 

-9.549485E-01 

-9.531747E-01 

-.19 

-7.653049E-01 

-7.626103E-01 

-.35 

1.263505E-01 

1.274941E-01 

.91 

9.021050E-01 

9.006485E-01 

-.16 

9.624534E-01 

9.606622E-01 

-.19 

9.827350E-01 

9.800652E-01 

-.27 

5.388174E-01 

5.363594E-01 

-.46 

-1.927009E-01 

-1.936352E-01 

.48 

-8.213626E-01 

-8.202745E-01 

-.13 

-1.011611E+00 

-1.009082E+00 

-.25 

-6.618994E-01 

-6.592784E-01 

-.40 

4.110985E-02 

4.242327E-02 

3.19 

7.221763E-01 

7.214810E-01 

-.10 

1.017772E+00 

1.015439E+00 

-.23 

7.701 184E-01 

7.673931E-01 

-.35 

Results  from  RPK’s  CRAY  Version  of 
1988  COSMIC/NASTRAN 
(See  Note  2  above) 


Displacements 

from 

Checkpoint  Run 


0.000000E+00 
8 404462E-01 
9.099538E-01 
1.447636E-01 
-7.532178E-01 
-9.602749E-01 
-2.864749E-01 
6.501076E-01 
9.903484E-01 
4.221458E-01 
-5.332899E-01 
-9.995404E-01 
-5.489157E-01 
4.05 227 6E-01 
9.876569E-01 
6.641 117E-01 
-2.6862 12E-01 
-9.549486E-01 
-7.653047E-01 
1.263508E-01 
9.021 05  IE-01 
9.624535E-01 
9.827349E-01 
5.388172E-01 
-1.927012E-01 
-8.213628E-01 
-1.011611E+00 
-6.618993E-01 
4.111014E-02 
7.221765E-01 
1.017772E+01 
7.701 182E-01 


Displacements 

from 

Restart  Run 


See 
Note  3 
above 


-5.332899E-01 
-9.995404E-01 
-5.489157E-01 
4.05 227 6E-01 
9.876569E-01 
6.641 117E-01 
-2.6862 12E-01 
-9.549486E-01 
-7.653047E-01 
1.263508E-01 
9.021 05  IE-01 
9.624535E-01 
9.827349E-01 
5.388172E-01 
-1.927012E-01 
-8.213628E-01 
-1.01 161 1E+00 
-6.618993E-01 
4.11 1014E-02 
7.221765E-01 
1.017772E+00 
7.701 182E-01 


above) 
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TABLE  2.  RESULTS  FOR  EXAMPLE  2 


(Transient  Analysis  Involving  Coupled  Equations) 

Displacements  for  Extra  Point  10  of  NASTRAN  Demonstration  Problem  No.  D09-01-1A 


TSTEP  Bulk  Data  Card  Input 


Checkpoint  Run:  Number  of  time  steps  =  200 

Time  increment  =  0.005  sec. 
Skip  factor  for  output  =  10 

Number  of  time  steps  =  50 
Time  increment  =0.015  sec. 
Skip  factor  for  output  =  5 

Restart  Run:  Number  of  time  steps  =  50 

Time  increment  =  0.015  sec. 
Skip  factor  for  output  =  5 


NOTES: 

1.  The  restart  run  on  the  DEC  VAX  version  uses  the  CONTINUE  feature  available  in  the  standard 
release  of  COSMIC/NASTRAN. 

2.  The  r  "tart  run  on  RPK’s  CRAY  version  uses  the  improved  CONTINUE  feature  described  in  the 
paper  In  this  case,  since  the  initial  time  step  used  in  the  restart  run  (0.015  sec.)  is  not  the  same  as 
that  used  to  obtain  the  output  of  the  checkpoint  run  from  where  the  restart  is  initiated  (0.005  sec.), 
the  CONTINUE  feature  uses  Equation  (2)  in  the  appendix  to  initiate  the  integration. 

3.  The  restart  run  was  initiated  by  setting  the  parameter  NCOL  in  the  rigid  format  DMAP  to  21  just 
before  the  TRLG  module  (see  Volume  2,  Section  2.9.6  of  Reference  1  for  details),  thereby  triggering 
the  continuation  of  the  integration  from  the  21st  output  time  of  the  checkpoint  run. 

4.  Note  that  the  time  step  changes  from  0.005  sec.  to  0.015  sec.  at  time  =  1.000  sec. 

5.  The  displacement  shown  in  the  parentheses  below  is  obtained  only  in  the  checkpoint  run  because  this 
run  involves  a  change  in  time  step.  There  is  no  corresponding  displacement  from  the  restart  run  as 
the  latter  run  does  not  involve  any  change  in  time  step.  In  general,  each  change  in  time  step  results 
in  such  an  extra  displacement  in  the  output. 

6.  The  %  Error  in  the  table  is  calculated  by  the  following  relationship: 

(Displacement  from  Restart  Run)  -  (Displacement  from  Checkpoint  Run) 

(Displacement  from  Checkpoint  Run) 
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TABLE  2.  RESULTS  FOR  EXAMPLE  2 
(Continued) 


Results  from  DEC  VAX  Version  of 

1988  COSMIC/NASTRAN 
(See  Note  1  above) 

Results  from  RPK's  CRAY  Version  of 
1988  COSMIC/NASTRAN 
(See  Note  2  above) 

Time 

Displacements 

Displacements 

%  Error 

Displacements 

Displacements 

%  Error 

(sec.) 

from 

from 

from 

from 

(See 

Checkpoint  Run 

Restart  Run 

(See 

Checkpoint  Run 

Restart  Run 

(See 

Note  4 

Note  6 

Note  6 

above) 

above) 

above) 

.000 

0.000000E+00 

0.000000E+00 

.050 

4.792385E-01 

4.792386E-01 

.100 

8.412145E-01 

8.412146E-01 

■SI 

9.973578E-01 

9.973578E-01 

HI 

9.094625E-01 

9.094625E-01 

HI 

5.99035  IE-01 

5.990351E-01 

.300 

1.420328E-01 

1.420328E-01 

.350 

-3.497228E-01 

-3.497229E-01 

.400 

-7.559065E-01 

See 

-7.559065E-01 

See 

.450 

-9.77131  IE-01 

Note  3 

-9.77131  IE-01 

Note  3 

.500 

-9.592662E-01 

above 

-9.592662E-01 

above 

.550 

-7.066831E-01 

-7.066831E-01 

.600 

-2. 811 852E-0 1 

-2.81 1851E-01 

.650 

2.131146E-01 

2.131 147E-01 

.700 

6.552684E-01 

6.552685E-01 

.750 

9.370877E-01 

9.370878E-01 

.800 

9.896156E-01 

9.8961 56E-01 

.850 

7.999993E-01 

7.999992E-01 

.900 

4.146350E-01 

4.146349E-01 

.950 

-7.21 843  IE-02 

-7.218443E-02 

1.000 

-5.413412E-01 

-5.413412E-01 

.00 

-5.413413E-01 

-5.413413E-01 

.00 

1.015 

(-6.6222 12E-01) 

See  Note  5 

(-6.622213E-01) 

See  Note  5 

1.075 

-9.761 183E-01 

-9.721630E-01 

-.41 

-9.761 184E-01 

-9.761 184E-01 

.00 

1.150 

-8.898796E-01 

-8.83887  IE-01 

-.67 

-8.898796E-01 

-8.898796E-01 

.00 

1.225 

-3.286562E-01 

-3.23825  IE-01 

-1.47 

-3.286560E-01 

-3.286560E-01 

.00 

1.300 

4.0799 18E-01 

4.090828E-01 

.27 

4.0799 19E-01 

4.079919E-01 

.00 

1.375 

9.268688E-01 

9.236374E-01 

-.35 

9.268689E-01 

9.268689E-01 

.00 

1.450 

9.510176E-01 

9.451886E-01 

-.61 

9.510176E-01 

9.510176E-01 

.00 

1.525 

4.675484E-01 

4.622332E-01 

-1.14 

4.675483E-01 

4.675483E-01 

.00 

1.600 

-2.654808E-01 

-2.674452E-01 

.74 

-2.6548 10E-01 

-2.6548 10E-01 

.00 

1.675 

-8.568062E-01 

-8.543713E-01 

-.28 

-8.568063E-01 

-8.568063E-01 

.00 

1.750 

-9.908002E-01 

-9.852656E-01 

-.56 

-9.908002E-01 

-9.908002E-01 

.00 
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TABLE  3.  RESULTS  FOR  EXAMPLE  3 


(Transient  Analysis  Involving  Uncoupled  Modal  Equations) 


Displacements  for  Grid  Point.  26,  Component  T3,  of 
NASTRAN  Demonstration  Problem  No.  D 12-01-1 A 


TSTEP  Bulk  Data  Card  Input 

Checkpoint  Run:  Number  of  time  steps  =  30 

Time  increment  =  0.001388  sec. 

Skip  factor  for  output  =  1 

Restart  Run:  Number  of  time  steps  =  14 

Time  increment  =  0.001388  sec. 

Skip  factor  for  output  =  1 


NOTES: 

1 .  For  the  restart  run  of  this  problem,  RPK’s  CRAY  version  uses  the  CONTINUE  feature  that  has  been 
extended  to  uncoupled  modal  equations  and  that  is  mentioned  in  the  paper.  No  runs  were  made  on 
the  standard  release  of  COSMIC/NASTRAN  as  it  does  not  have  this  capability. 

2.  The  restart  run  was  initiated  by  setting  the  parameter  NCOL  in  the  rigid  format  DMAP  to  17  just 
before  the  TRLG  module  (see  Volume  2,  Section  2.9.6  of  Reference  1  for  details),  thereby  triggering 
the  continuation  of  the  integration  from  the  17th  output  time  of  the  checkpoint  run. 

3.  The  %  Error  in  the  table  is  calculated  by  the  following  relationship: 

(Displacement  from  Restart  Run)  -  (Displacement  from  Checkpoint  Run)  ^ 
(Displacement  from  Checkpoint  Run) 
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TABLE  3.  RESULTS  FOR  EXAMPLE  3 
(Continued) 


Results  from  CRAY  Version  of 

1988  COSMIC/NASTRAN 
(See  Note  1  above) 

Time 

Displacements 

Displacements 

%  Error 

(sec.) 

from 

from 

Checkpoint  Run 

Restart  Run 

(See 

Note  3 

above) 

0.000000E+00 

0.000000E+00 

1.388000F-03 

3.346152E-03 

2.776uw£-03 

1.799760E-02 

4.164000E-03 

3.245619E-02 

5.552000E-03 

2.809689E-02 

6.940000E-03 

3.562258E-03 

8.328000E-03 

-3.010927E-02 

See 

9.716000E-03 

-6.037387E-02 

Note  2 

1.110400E-02 

-7.236326E-02 

above 

1.249200E-02 

-5.503825E-02 

1.388000E-02 

- 1.209 147E-02 

1.526800E-02 

3.98347  IE-02 

1.665600E-02 

8.073034E-02 

1.804400E-02 

9.407332E-02 

1.943200E-02 

7.293699E-02 

2.082000E-02 

2.460154E-02 

2.220800E-02 

-3.235601  E-02 

-3.235601E-02 

.00 

2.359600E-02 

-7.679893E-02 

-7.679893E-02 

.00 

2.498400E-02 

-9.321987E-02 

-9.321987E-02 

.00 

2.637200E-02 

-7.703266E-02 

-7.703266E-02 

.00 

2.776000E-02 

-3.6046 19E-02 

-3.604619E-02 

.00 

2.914800E-02 

1.333591E-02 

1.333591E-02 

.00 

3.053600E-02 

5.347509E-02 

5.347509E-02 

.00 

3.192400E-02 

7.224338E-02 

7.224338E-02 

.00 

3.331200E-02 

6.658045E-02 

6.658045E-02 

.00 

3.470000E-02 

4.226934E-02 

4.226934E-02 

.00 

3.608800E-02 

1.031458E-02 

1.031458E-02 

.00 

3.747600E-02 

-1.823067E-02 

-1.823067E-02 

.00 

3.886400E-02 

-3.631594E-02 

-3.631594E-02 

.00 

4.025200E-02 

-4.226599E-02 

-4.226599E-02 

.00 

4.164000E-02  • 

-3.859226E-02 

-3.859226E-02 

.00 
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APPENDIX 


The  equations  in  this  appendix  are  all  taken  from  Section  4.65.7.3  of  the  NASTRAN  Programmer’s 
Manual  (Reference  3).  Readers  are  referred  to  that  section  for  the  complete  definition  and  description  of 
the  various  terms  involved  in  the  equations. 

The  following  general  terminology  is  used  in  all  of  the  equations  in  this  appendix: 

At  —  time  step 

m  ™  displacement  at  time  t. 

Uj  —  velocity  at  time  t; 

u.  —  acceleration  at  time  t. 

i  i 

Pj  —  load  at  time  t. 

N.  —  non-linear  load  at  time  t. 

i  i 

[K]  —  stiffness  matrix 


[B]  —  damping  matrix 
[M]  —  mass  matrix 


The  matrices  [C],  [D]  and  [E]  used  in  the  equations  in  this  appendix  are  functions  of  the  [K],  [B]  and 
[M]  matrices  and  the  time  step  At  and  are  defined  as  follows: 

[C]  =  (2/At2)  [Mj  -  (1/3)  [K]  'a) 

[D]  =  (1/At2)  [M]  +  (1/2 At)  [B]  +  (1/3)  [K]  (b) 

[E]  =  -  (l/At2)[MJ  +  (l/2At)  [B]  -  (1/3)  [K]  (c) 


Equation  Used  to  Compute  Successive  Displacements  After  the  Integration  is  Started 

[D]  tuj+2)  =  (1/3)  (R  +  P.+1  +  P.+2)  +  (Nj+1)  +  [C]  (Vl)  +  [E]  (a)  (1) 

Equation  Used  to  Compute  the  First  Displacement  After  a  Time  Step  Change 


It  is  assumed  here  that  the  time  step  changes  from  At^  to  At2  at  time  t+j.  This  is  shown  below. 


i+1 


li+2 


•At, 


At, 
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The  [C],  [D]  and  [E]  matrices  are  formed  with  using  At  =  At2- 

PI  (ui+2)  =  (1/3)  (P,1  +  Pi+1  +  Pit2)  +  {N.+1)  +  [C](uj+I)  +  [H](uJ}  (2) 

where: 

(ii+1!  =(l/At1)({ui+1)  -  (Uj))  (2a) 

fu,+1)  =  (1/At2)  ( (ui+1)  -  2  { Uj )  +  {uj ,) )  (2b) 

<“i‘)  =  (Vi>  -  (2c) 

(u!)  =  (uj+1)  •  At2{u1+,)  +(4.22/2){i;+1)  (2d) 

and 

(p!)  =  [M]  {u.+1)  +  [B]  (u!)  +  [K]  (uj)  (2e) 


Equation  Used  bv  the  CONTINUE  Feature  to  Compute  the  First  Displacement  of  the  CONTINUEd  Run 


[D] { u j }  =  (1/3)  {P  j  +  PQ  +Pj}  +  {N0}  +  [C]{u0}  +  [EJ {U  j }  (3) 

where 

(P0)  =  IK]  (u0]  +  [B]  (<10)  +  [M]  (u0)  (3a) 

{u  j)  =  (u0)  -  At  {u0)  +  (At2/2)  (u0)  (3b) 

fu_! )  =  {uQ}  -  {uQ}  At  (3c) 

and 

{P  j)  =  [M]  (Uq)  +  [B]  {u_j}  +  [K]  {u_j}  (3d) 


where  {u^},  {u^}  and  {u'q}  are  the  displacements,  velocities  and  accelerations,  respectively, 
at  the  specified  output  time  t^  of  the  checkpoint  run  and  At  is  the  initial  time  step  for  the 
restart.  {Pj }  is  the  load  at  time  tQ  =  tQ  +  At  and  {NQ}  is  the  initial  non-linear  load. 
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FINITE  ELEMENT  MODELING  OF  ELECTROMAGNETIC 
FIELDS  AND  WAVES  USING  NASTRAN 


E.  Thomas  Moyer  Jr. 
George  Washington  University 
Washington,  D.C  20052 

Erwin  Schroeder 
David  Taylor  Research  Center 
Bethesda,  Md.  20084 


SUMMARY 

The  various  formulations  of  Maxwell’s  equations  are  reviewed  with  emphasis  on  those 
formulations  which  most  readily  form  analogies  with  Navier's  equations.  Analogies  involving 
scalar  and  vector  potentials  and  electric  and  magnetic  field  components  are  presented. 
Formulations  allowing  for  media  with  dielectric  and  conducting  properties  are  emphasized.  It 
is  demonstrated  that  many  problems  in  electromagnetism  can  be  solved  using  the  NASTRAN 
finite  element  code. 

Several  fundamental  problems  involving  time  harmonic  solutions  of  Maxwell’s  equations  with 
known  analytic  solutions  are  solved  using  NASTRAN  to  demonstrate  convergence  and  mesh 
requirements.  Mesh  requirements  are  studied  as  a  function  of  frequency,  conductivity,  and 
dielectric  properties. 

Applications  in  both  low  frequency  and  high  frequency  are  highlighted.  The  low  frequency 
problems  demonstrate  the  ability  to  solve  problems  involving  media  inhomogeneity  and 
unbounded  domains.  The  high  frequency  applications  demonstrate  the  ability  to  handle 
problems  with  large  boundary  to  wavelength  ratios. 


INTRODUCTION 

The  Applied  Mathematics  Division  at  the  David  Tayior  Research  Center  (DTRC)  has  begun 
developing  methods  using  finite  elements  with  NASTRAN  to  solve  problems  involving 
electromagnetic  waves  propagating  in  various  media  or  scattered  by  objects  in  the  field.  This 
paper  reports  work  supported  by  the  Office  of  Naval  Technology  Exploratory  Development 
Program,  DTRC  Project  Manager,  Dr.  Bruce  Hood. 

The  fundamental  equations  governing  the  propagation  of  electromagnetic  waves  are  the 
Maxwefi’s  equations.  For  many  applications,  the  electric  and  magnetic  field  components 
satisfy  the  linear,  damped  wave  or  Helmholtz  equation.  While  there  are  six  field  components 
in  electromagnetic  problems,  for  time  harmonic  fields,  only  three  are  independent.  The 
equations  are,  therefore,  similar  to  the  Navier’s  equations  governing  an  elastic  solid. 
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In  ‘•.his  paper,  the  several  ways  of  formulating  Maxwell’s  equations  are  presented. 
Formulations  involving  field  vector  components  are  compared  with  formulations  involving 
potential  functions.  It  is  shown  in  the  next  section  that  it  is  possible  to  form  analogies 
between  Maxwell’s  equations  and  the  Navier’s  equations.  Standard  finite  element  codes 
which  solve  the  equations  of  elasticity  (such  as  the  NASTRAN  code),  therefore,  with 
appropriate  choices  of  material  properties  and  boundary  conditions,  can  be  used  to  so've 
problems  in  electromagnetics. 

In  this  paper,  several  example  problems  in  electromagnetism  are  solved  using  elastic  analogies 
and  the  NASTRAN  finite  element  code.  Examples  of  interest  in  low  frequency  applications 
and  high  frequency  radar  cross  section  applications  are  presented.  The  examples  are  all  two 
dimensional,  however,  the  analogies  and  the  ability  to  solve  electromagnetism  problems  with 
NASTRAN  are  not  limited  to  two  dimensional  applications.  All  the  applications  use  the 
IS2D8  element;  however,  any  of  the  solid  elements  can  be  employed. 

The  problems  of  modeling  point  dipoles  in  both  conducting  and  nonconducting  media  are 
studied  in  this  paper.  The  accurate  modeling  of  dipole  sources  is  critical  for  applications 
involving  electromagnetic  waves.  The  results  of  these  problems  are  compared  with  available 
analytic  solutions.  An  important  result  is  determining  the  mesh  requirements  needed  to 
establish  the  dipole  field  accurately. 


The  mesh  characteristics  required  for  dipole  modeling  are  employed  for  the  study  of  the  fields 
generated  from  a  point  dipole  source  located  in  sea  water  (which  is  a  conducting,  attenuating 
medium).  Two  frequencies  representing  the  extremes  of  low  frequency  applications  are 
presented.  Of  special  interest  is  the  study  of  the  effect  of  a  layer  of  Re  on  the  solutions. 
While  the  example  presented  is  somewhat  idealized  and  limited,  it  should  demonstrate  to  the 
reader  the  methodology  required  for  the  solution  of  low  frequency  problems. 


Another  example  problem  is  the  scattering  of  a  plane  wave  by  a  conducting  object.  The 
problem  of  a  circular  cylinder  in  a  pi;  le  wave  field  is  solved  and  compared  with  the  analytic 
solution.  Excellent  agreement  ir  '  trated  using  the  IS2D8  element.  Convergence  of 
this  element  is  quite  superior  tc  nents  documented  elsewhere.  For  this  problem, 

both  the  electric  field  vector  an  \  retie  field  vector  equations  are  solved.  This  is 


analogous  to  the  “so”  '  soft’ 


ai. 


aard”  scattering  problems  in  acoustics. 


Finally,  the  concluding,  ,ion  of  this  paper  discusses  areas  where  further  development  is 
required  to  solve  some  difficult,  three  dimensional  problems.  There  is  great  potential  in  using 
standard  finite  element  codes  for  the  routine  solution  of  electromagnetics  problems. 


MAXWELL’S  EQUATIONS  -  FIELD  STRENGTH  AND  POTENTIAL  FORMULATION 

Media  in  which  electromagnetic  waves  travel  often  exhibit  the  properties  of  linearity,  isotropy 
and  homogeneity.  This  type  of  medium  is  called  a  linear,  isotropic,  and  homogeneous  (LIH) 
medium.  For  these  media,  the  electric  displacement  vector,  D,  the  magnetic  field  intensity, 
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H,  the  electric  field  intensity,  E,  the  magnetic  induction  vector,  B  and  the  free  current 
density,  J  are  linearly  related  by  the  equations 

D  =  eE;  H  =  B//i;  J  =  ctE  (1) 


where  e  is  the  permittivity  ,  /i  is  tne  permeability  and  a  is  the  conductivity  of  the  material.  If 
we  restrict  our  discussion  to  time  harmonic  fields  at  a  single,  arbitrary  frequency,  the  field 
vectors  E  and  H  take  the  form 


E  =  E°  exp(wt) 
H  =  H°exp(twt) 


(2) 


where  u  is  the  frequency  and  i  =  \/-T.  For  time  harmonic  fields  in  an  LIH  medium,  the 
governing  equations  for  the  spatial  field  variations  can  be  derived  from  the  Maxwell’s 
equations  and  are  given  by  [l] 


d2E° 

Sxjdxj 

d2Hi° 

<9xjdxj 


=  0 

=  0 


(3) 


where 


(4) 


is  the  complex  permittivity,  c  is  the  speed  of  light  in  the  medium  and  e0  is  the  permittivity  of 
free  space.  The  subscript,  r,  is  not  summed  as  is  standard  in  the  literature  of 
electromagnetism  [l]  while  the  subscript  i  and  j  are  summed  in  the  standard  cartesian  tensor 
notation  These  equations  are  damped  wave  equations. 


The  governing  equations  given  in  (3)  are  the  general  equations  to  be  solved  for  any  problem 
in  electromagnetics  involving  LIH  media.  It  is  important  to  note  that  these  equations  are 
uncoupled.  The  boundary  conditions,  however,  may  involve  combinations  of  the  field 
variables.  The  total  problem,  therefore,  may  be  strongly  coupled.  This  system,  (3), 
represents  six  partial  differential  equations  in  the  three  components  of  E  and  of  H.  These 
variables,  however,  are  not  all  independent.  For  time  harmonic  applications,  only  three  of 
these  equations  are  independent.  For  two  dimensional  time  harmonic  problems,  only  two  of 
the  components  are  independent.  It  is  important,  therefore,  to  insure  that  the  problem  under 
investigation  is  well  posed.  In  practice,  three  dimensional  electromagnetic  problems  are 
solved  by  solving  for  either  E  or  H  and  calculating  the  other  from  the  Maxwell  equations. 
For  special  applications,  one  could  choose  two  components  of  one  field  and  one  of  the  other. 
It  is  important  to  choose  primal)  tin  know  ns  which  <uo  consistent  with  the  available  boundary 
conditions. 
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An  alternative  approach  to  the  formulation  of  electromagnetic  problems  is  to  introduce 
potential  quantities  and  derive  governing  equations  for  them  from  the  Maxwell  equations.  A 
vector  potential,  A  and  a  scalar  potential  4>  are  introduced  by  the  relations 

B  =  v  XA 

(5) 

t?  5A 

E  --v*-  IT 

The  potentials  are  not  independent.  They  can  be  related  to  each  other  using  the  Lorentz 
gauge  condition  given  by 

v-a  +  =  °  ^ 


This  is  not  the  only  possible  gauge  condition  relating  these  quantities,  however,  it  is  the  most 
widely  employed  (2). 

If  the  relations  in  (5)  are  substituted  into  the  Maxwell  equations  and  the  vector  potential,  A, 
is  assumed  to  have  a  harmonic  time  variation  given  by 

A  =  A°exp(fwt)  (7) 


then  the  governing  equation  for  A  is 


d2k[ 

Sxjdxj 


+  7 


d2A° 

dx-,dxj 


+  /cA:°  =  0 


where 


k  = 


0J‘ 


-  toj/ia; 


_  _  i/iac~ 


u> 


(8) 

(9) 


This  system,  (8),  is  also  a  damped  wave-like  equation  with  “shear  coupling”.  The  mixed 
partial  derivative  term  comes  from  the  conductance  property  of  the  medium.  For 
nonconducting  media,  this  equation  reduces  to  an  undamped  Helmholtz  equation. 


NAVIER’S  EQUATIONS  AND  ELASTIC  ANALOGIES 

For  elastic  bodies  with  time  harmonic  displacement  response,  the  displacement  vector  for  the 
steady  state  forced  response  (at  frequency,  w)  of  the  domain  is  given  by 

u  =  u°exp(fwt)  (10) 
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The  governing  equation  for  a  damped,  isotropic  elastic  media  can  be  written  as  [3] 


<9V 


3V 


+  (X+G)  L  +  *wb)ui°  =0 


SxjSxj  '  v'  ‘  '  dxjdxj 


(11) 


where  G  is  the  shear  modulus,  X  is  the  Lame  constant,  p  is  the  mass  density  and  b  is  the 
damping  coefficient.  An  alternative  form  is 


d2U:° 


.  a2Ui° 

h  +  HoUj0  =  0 


5xj3xj  '  ’"1 dxjdxj 


(12) 


where 

Hi 


X+G  .  „  poj~  -  fwb 

G  ’  2  —  G 


(13) 


are  complex  material  parameters.  These  are  the  equations  which  are  solved  by  finite  element 
codes  designed  for  the  solution  of  forced,  harmonic  elastic  systems  (such  as  NASTRAN). 

It  is  desired  to  draw  an  analogy  between  the  Navier  equations  and  the  Maxwell  equations. 
This  has  been  discussed  in  the  literature  previously  for  the  scalar  Helmholtz  equation  (4). 
Following  this  approach,  introduce  the  relation  between  Young’s  modulus,  Y  and  the  shear 
modulus  G 

Y  =  cvG  =  2(l+i/)G  (14) 


where  the  Poisson’s  ratio,  v,  is 


(15) 


If  the  parameter  a  is  chosen  large  enough  so  that 

a+l  ^  a  (16) 

then 

Hj  »  0  (17) 

The  Navier  equations,  under  this  choice  of  a,  reduce  to  the  Maxwell  equations  of  (3).  For 
most  computers,  a  value  of  a  —  JO20  is  usually  sufficient  [4j.  The  shear  modulus,  G,  can  be 
chosen  arbitrarily. 

If  the  problem  of  interest  is  two  dimensional,  the  Navier  equations  must  be  reduced  to  the 
equations  of  either  plane  stress  or  plane  stiam.  For  plane  stress,  introduce  the  parameter,  /?, 
in  the  relation 
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Y  =  (3G 


(18) 


where 

"  =  f -1  (19) 

If  (3  is  chosen  so  that 

(3+1  «  1  (20) 


then,  for  the  case  of  plane  stress,  [4] 
Hi  «  0 


(21) 


For  scalar  field  problems  on  most  computers,  the  choice  of  (3  —  10~s  is  sufficient  [4].  The 
shear  modulus,  G,  can  still  be  chosen  arbitrarily. 


For  either  the  two  dimensional  plane  stress  analogy  or  the  three  dimensional  analogy,  the 
complex  electromagnetic  material  properties  are  related  to  the  elastic  proputies  through  the 
equation 


H 


O 


par-  iu) b 
G 


1  *  2 
C~ 


(22) 


The  full  Maxwell  equations  for  an  arbitrary  LIH  medium  (two  or  three  dimensional)  can  be 
solved  by  any  finite  element  code  which  solves  the  Navier  equations  if  the  material  properties 
are  chosen  appropriately  and  if  the  boundary  conditions  can  be  related  to  the  applied  forces 
and  displac  ments.  Boundary  conditions  will  be  discussed  more  rigorously  in  a  later  section. 

An  analogy  can  be  formulated  for  the  magnetic  vector  potential  if  the  medium  is 
nonconducting.  In  this  case,  the  procedure  is  identical  to  the  previous  discussion  as  the 
mixed  derivative  terms  do  not  appear.  If  the  material  is  conducting,  an  analogy  can  be  made 
if 

Hj  =  7i  H2  =  k  (23) 


This  is  possible  if  the  elastic  constants  are  complex.  Since  most  structural  codes  do  not 
permit  complex  material  constants,  the  implementation  would  prove  difficult.  If  one 
examines  these  material  analogies,  however,  it  can  be  seen  that  the  required  complex  stiffness 
matrix  can  be  formed  by  the  sum  of  two  real  stiffness  matrices  multiplied  by  complex 
coefficients.  NASTRAN  can  accomplish  this  by  using  DMAP  instructions.  The  imaginary 
part  of  the  stiffness  matrix  can  be  calculated  in  an  analogy  where 
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upa  =  Hj; 


(24) 


m i  =h, 

o> 

This  matrix  can  be  saved,  multiplied  b>  -  i,  and  added  to  the  stiffness  matrix  for  a  problem 
with 

H,  =0;  H2=4-  (25) 

c" 

The  new  stiffness  matrix  will  be  the  required  matrix. 


PIECEWISE  HOMOGENEOUS  MEDIA 

In  many  applications,  it  is  necessary  to  describe  the  electromagnetic  fields  which  pass  from 
one  medium  to  another.  Such  problems  are  piecewise  homogeneous.  For  problems  with 
only  dielectric  materials  (no  conducting  materials),  this  can  be  done  by  insuring  all  elements 
contain  only  one  material  and  using  different  element  material  properties  for  the  different 
media.  The  procedure  is  identical  to  solving  problems  where  the  density  or  elastic  modulus 
varies  from  element  to  element. 


For  conducting  media,  the  “viscous”  damping  coefficient  needs  to  vary  from  element  to 
element.  This  is  not  possible  directly  with  the  NASTRAN  code.  It  is  possible,  through  the 
use  of  DMAP  statements,  to  simulate  this  with  two  matrix  formulation  runs.  Form  the  mass 
matrix  for  the  model  with  a  mass  density  given  by 


G/ira 

p  —  — - -  produces 

c2e0 


Mi 


(26) 


The  mass  density  in  each  element  can  be  different  representing  the  different  conducting 
media.  It  is  desired  to  form  a  damping  matrix,  B,  which  has  the  element  damping  coefficients 
given  by 


b 


Gfit<r  , 

— - -  produces 

«0 


B 


(27) 


This  is  accomplished  if 
B  —  Mj 


(28) 


The  first  matrix  formulation  produces  the  M!  matrix.  This  can  be  written  out  and  read  in 
(using  OUTPUT2/INPUT2)  as  the  damping  matrix  in  run  two  which  now  uses  amass  density 


Gcr/tr 


produces  M 


(29) 


to  form  the  true  analogous  mass  matrix.  Each  element  can  have  different  permittivities  and 
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permeabilities.  The  only  requirement  is  that  the  material  parameters  are  constant  within  an 
element. 

Using  the  approach  summarized  above,  multiple  conducting  media  can  be  modeled  with 
NASTRAN.  An  example  of  a  layered  media  problem  is  presented  in  the  following  section. 
When  this  procedure  is  applied  in  NASTRAN,  it  is  necessary  to  add  a  single  damper  element 
to  the  model  with  a  zero  damping  coefficient.  This  will  signal  NASTRAN  that  the  problem  is 
fully  complex  and  that  the  complex  solver  is  required.  Reading  in  the  damping  matrix  is  not 
sufficient  for  NASTRAN  to  choose  the  complex  solver.  If  other  dampers  are  present  in  the 
model,  this  is  unnecessary. 


TWO  DIMENSIONAL  EXAMPLE  PROBLEMS 

Several  example  problems  are  solved  in  this  section  to  demonstrate  the  use  of  the  analogies 
described  previously.  The  problems  presented  range  from  very  low  frequency  examples  (at  1 
Hz)  to  high  frequency  scattering  examples  (at  3  x  108  Hz).  All  the  models  employ  the  8 
node,  quadratic,  isoparametric  quadrilateral  element  (IS2D8).  These  elements  perform  well 
for  a  variety  of  problems  and  yield  accurate  results  for  the  problems  with  availabh.  analytic 
solutions. 


EXAMPLE  1:  A  DIPOLE  SOURCE  IN  FREE  SPACE 

As  the  first  problem,  the  field  produced  by  a  two-dimensional  point  dipole  in  free  space  was 
computed  to  explore  the  use  of  analogies  with  NASTRAN.  Information  gained  by  computing 
the  fields  for  this  case  will  also  be  useful  if  fields  in  layered  media  need  to  be  computed  with 
a  dipole  source  located  in  air.  The  finite  element  mesh  used  is  shown  in  increasing  detail  in 
Figures  1,  2,  and  3.  Similar  mesh  configurations  were  used  with  two  sizes  of  elements.  For 
the  larger  elements  the  overall  dimensions  of  the  mesh  (Figure  1)  are  6T08  by  6T08  m. 
Thus  each  of  the  larger  square  elements  in  Figure  1  are  108  by  108  m,  and  there  are  three  of 
these  elements  for  each  wavelength.  The  overall  dimensions  of  the  smaller  mesh  are  3  108  by 
3108  m.  For  this  mesh  there  are  six  elements  per  wavelength.  The  relative  dimensions  of  all 
elements  in  the  two  meshes  are  equal,  so  each  is  portrayed  by  the  figures.  The  radial  mesh  in 
the  lower  left  corner  of  Figure  1,  which  is  graded  down  to  ever  smaller  elements,  contains  the 
dipole  source.  In  this  section  of  the  mesh,  which  has  dimensions  108  by  108  m  in  the  larger 
mesh  (5T07  by  5-107  m  in  the  smaller),  the  elements  are  much  smaller  and  the  only 
consideration  on  the  element  size  is  to  keep  the  aspect  ratios  within  reasonable  bounds  (less 
than  1:8). 

Boundary  conditions  are  applied  to  the  model  to  provide  for  wave  absorption  at  the  outer 
boundary,  to  apply  symmetry  conditions  on  the  axes  of  symmetry,  and  to  model  the  dipole 
source.  The  dipole  boundary  conditions  are  applied  along  the  small  circular  boundary  in  the 
lower  left-hand  corner  of  Figure  3.  Along  the  outer  boundaries  (upper  and  right  sides  in 
Figure  1),  plane  wave  absorbing  boundary  conditions  in  tire  fonn  of  dash  pots  were  applied. 
Along  the  axes  of  symmetry  (lower  and  left  sides  in  Figures  1,  2,  and  3),  symmetric 
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boundary  conditions  were  applied.  The  dipole  source  is  modeled  by  imposing  enforced  values 
of  the  electric  field  for  a  dipole  on  the  circular  boundary  sector  in  the  lower  left  corner  of 
Figure  3  The  radius  of  this  sector  is  0.1  m.  The  complete  solution  for  a  tw-o  dimensional 
dipole  can  be  found  in  (5) 

The  electric  fields  computed  for  this  problem  were  compared  with  analytic  solutions  [5],  and 
both  meshes  were  found  to  produce  reasonably  accurate  values.  The  amplitude  and  phase  of 
the  solution  for  the  larger  mesh  are  shown  in  Figures  4  and  5.  and  the  amplitude  and  phase 
of  the  near-field  solution  are  shown  in  Figures  6  and  7.  The  values  plotted  arc  the  z- 
component  of  the  electric  field  along  a  radial  line  45  degrees  from  the  lower  axis.  For  the 
larger  mesh,  the  error  in  the  large  square  elements  was  on  the  order  of  5  percent,  and  in  the 
radial  block  the  error  was  of  the  order  of  1  percent.  For  this  mode),  the  region  containing  the 
radial  elements  is  considered  to  be  the  region  of  interest,  and  the  outside  region  is  included 
only  to  model  several  wavelengths  to  provide  for  suitable  wave  absorbing  boundaries. 
Therefore,  in  the  region  of  interest,  very  good  results  were  obtained. 

For  the  larger  mesh,  two  wave  lengths  were  modeled  before  the  absorbing  boundary 
conditions  are  applied,  and  for  the  smaller  mesh  only  one  wave  length  was  modeled. 
Decreasing  the  number  of  wave  lengths  modeled  inside  the  boundary  increased  the  error  in 
the  radial  elements,  the  region  of  interest.  The  change  in  mesh  size  resulted  in  errors  of  4 
percent  in  both  the  square  and  radial  elements  in  the  smaller  mesh.  At  the  same  time,  the 
increase  in  the  number  of  elements  per  wave  length  in  the  outer  region  slightly  increased  the 
accuracy  there. 


EXAMPLE  2:  A  DIPOLE  SOURCE  IN  SEA  WATER 

Computing  the  field  due  to  a  dipole  source  in  sea  water  was  the  first  application  to  modeling 
electromagnetic  fields  in  a  conducting  medium.  As  with  the  preceding  problem,  the  region 
containing  sea  water  was  assumed  to  have  infinite  extent,  so  that  comparisons  could  be  made 
to  an  analytic  solution  [ 5] .  Since  for  frequencies  near  one  Hertz,  sea  water  is  a  good 
conductor  the  electromagnetic  wave  length,  equal  to  1581  m,  is  considerably  shorter  than 
3  108  in  free  space  Therefore,  the  region  modeled  for  this  problem  was  correspondingly 
smaller  than  the  icgion  for  the  preceding  problem.  The  finite  element  mesh  used  is  shown  in 
increasing  detail  in  Figures  8,  9,  and  10.  The  outer  dimensions  of  this  mesh  are  5000  by 
5000  m.  In  the  outer  region  of  Figure  8,  the  larger  square  elements  are  250  m  on  aside,  and 
the  smaller  square  elements  on  the  left  side  are  125  m  on  a  side.  The  elements  on  the  left 
were  made  smaller  because  this  same  mesh  was  to  be  used  as  part  of  the  layered  media 
problem,  and  the  use  of  various  element  sizes  allowed  checking  the  performance  of 
transitions  from  smaller  to  larger  elements.  The  radial  mesh  in  the  lower  left  corner  of 
Figure  8  contains  the  dipole  source  which  is  too  small  to  be  seen  in  this  figure,  but  can  be 
seen  in  Figure  10.  This  section  of  the  mesh  has  dimensions  125  by  125  m.  Here  again  the 
elements  are  much  smaller,  and  the  principal  consideration  is  to  keep  the  aspect  ratios 
reasonable. 
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Again,  boundary  conditions  are  applied  to  provide  for  wave  absorption  on  the  outer 
boundary,  to  apply  symmetry  conditions  on  the  axes  of  symmetry,  and  to  model  the  dipole 
source.  The  dipole  boundary  conditions  are  applied  along  the  small  circular  boundary  in  the 
lower  left-hand  corner  of  Figure  10.  Along  the  outer  boundaries  (upper  and  right  sides  in 
Figure  8),  plane  wave  absorbing  dashpots  were  applied.  Along  the  axes  of  symmetry  (lower 
and  left  sides  in  Figures  8,  9,  and  10),  symmetric  boundary  conditions  were  applied.  The 
dipole  source  is  modeled  by  imposing  enforced  values  of  the  electric  field  for  a  dipole  on  the 
circular  boundary  sector  in  the  lower  left  corner  of  Figure  10.  The  radius  of  this  sector  is  also 
0.1  m. 


The  clectiic  fields  computed  for  this  problem  were  compared  with  analytic  solutions,  and  were 
found  to  produce  accurate  values.  The  amplitude  and  phase  of  the  solution  along  the 
horizontal  axis  of  symmetry  are  shown  in  Figures  11  and  12.  The  solution  phase  is  plotted 
between  -180  degrees  and  180  degrees,  therefore,  an  apparent  discontinuity  arises  at  radii  at 
which  the  phase  decreases  past -180  degrees.  The  error  in  the  solution  was  on  the  order  of  1 
percent  everywhere.  Again  for  this  model,  the  region  containing  the  radial  elements  is 
considered  to  be  the  region  of  interest.  The  outside  region  is  included  only  to  model  enough 
of  the  medium  to  provide  for  wave  absorbing  boundaries.  Therefore  very  good  results  were 
obtained  in  the  region  of  interest.  The  amplitude  and  phase  of  the  solution  along  the  vertical 
axis  of  symmetry  are  shown  in  Figures  13  and  14.  Excellent  agreement  with  the  analytic 
solution  is  demonstrated  in  this  direction  also. 


EXAMPLE  3:  MODELING  A  DIPOLE  SOURCE  IN  A  FINITE  DEPTH  OF  SEA  WATER 

The  problem  under  consideration  is  a  dipole  source  located  in  a  finite  depth  of  sea  water. 
The  current  modeling  is  limited  to  a  two-dimensional  line  dipole.  The  general  problem  under 
consideration  is  shown  in  Figure  15.  A  two-dimensional  dipole  is  located  at  a  distance  A 
beneath  the  surface  of  the  sea  water.  The  total  depth  of  the  sea  water  is  H.  The  sea  water 
may  be  covered  by  a  layer  of  ice  of  thickness  D.  The  air  on  top  and  the  mud  beneath  the  sea 
water  are  assumed  to  be  infinite.  The  problem  currently  modeled  assumes  a  sea  depth  of  250 
m.  The  dipole  source  is  located  125  m  beneath  the  surface  of  the  sea  water.  Models  have 
been  developed  for  sea  water  without  ice  and  for  sea  water  covered  by  1  m  of  ice.  The  total 
mesh  for  the  problem  under  consideration  for  a  dipole  source  radiating  at  1  hertz  is  shown  in 
Figure  16. 

The  sea  water  is  modeled  for  a  total  of  7500  m  (approximately  30  skin  depths)  and  then  is 
terminated  by  a  plane  wave  radiation  boundary  condition.  The  mud  is  modeled  out  to  16000 
by  16000  m  (which  is  approximately  20  skin  depths).  In  the  model  shown,  the  air  is  also 
modeled  out  to  16000  by  16000  m.  Both  media  are  terminated  by  plane  wave  radiation 
boundary  conditions.  Since  mud  and  sea  water  are  attenuating  media,  the  radiation  boundary 
condition  assumption  is  not  expected  to  significantly  influence  the  solution  (this  has  been 
demonstrated  for  the  case  of  a  line  dipole  in  an  infinite  region  of  sea  water  s  discussed 
previously).  For  the  air,  however,  it  is  often  required  to  model  a  region  on  the  order  of 
several  wave  lengths.  For  air  (at  I  hertz  excitation),  this  corresponds  to  approximately 
300,000,000  m.  Results  in  air,  however,  are  only  of  interest  for  distances  less  than  10,000  m 
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from  the  source.  The  air,  therefore,  was  modeled  as  far  as  the  mud  (for  geometric 
symmetry)  and  absorbing  boundary  conditions  were  applied  at  the  edge  of  the  mesh. 

Figure  17  shows  a  blowup  of  the  entire  sea  water  region.  The  transitioning  mesh  in  the  air 
and  the  sea  water  is  shown.  For  the  dipole  in  sea  water,  a  mesh  dimension  of  125  by  125  m 
was  demonstrated  to  predict  accurate  results.  This  is  the  dimension  of  the  elements  in  the 
sea  water  as  shown.  In  the  air  and  mud,  the  elements  are  allowed  to  expand  in  a  consistent 
manner  to  a  final  dimension  of  1000  by  1000  m.  The  larger  elements  are  permissible  since 
the  wavelength  and  attenuation  distance  in  mud  are  larger  than  in  seawater  (the  wavelength 
in  mud  is  in  the  order  of  5000  m  and  the  skin  depth  in  mud  is  on  the  order  of  796  m).  The 
transitioning  is  developed  to  insure  that  the  element  aspect  ratios  and  interior  angles  remain 
withm  acceptable  limits.  Near  the  dipole  source,  a  radially  expanding  mesh  is  employed  as  in 
the  previous  example.  This  mesh  is  sufficient  to  establish  the  near  source  field  accurately. 
As  in  the  previous  example,  the  dipole  is  modeled  as  a  small  circular  ring  of  nodes.  On  that 
ring  of  nodes,  the  analytic  solution  for  a  line  dipole  in  an  infinite  medium  of  sea  water  is 
applied  as  a  boundary  condition.  The  model  assumes,  therefore,  that  close  enough  to  the 
dipole,  tl.r  <„e,  air  and  mud  will  have  a  negligible  effect  on  the  field  variable  solutions.  The 
required  •r"'er  mesh  dimension  will  be  determined  by  a  convergence  study.  This  parameter 
will  be  d\,endent  upon  the  location  of  the  source  relative  to  the  boundaries  and  the 
frequency  of  the  source.  The  model  described  was  modified  to  allow  for  a  1  m  layer  of  ice. 
The  resulting  mesh  is  the  same  as  the  previous  one  except  that  between  the  sea  water  -  air 
interface  is  a  layer  of  elements  1  n.  thick  which  represent  the  ice.  Since  this  dimension  is 
mall  relative  to  the  domain  modeled,  it  is  observable  only  on  a  blowup  of  the  mesh. 

Figures  18  and  19  show  the  amplitude  and  phase  of  the  electric  field  component,  Eg,  along 
the  midline  of  ci  seawater.  Solutions  with  and  without  ice  are  shown.  A  decaying  field  is 
observed  with  a  characteristic  knee  in  the  solution.  This  occurs  near  the  point  where  the 
phase  crosses  the  zero  line.  This  phenomena  has  also  been  observed  experimentally  [6].  The 
dropoff  in  the  phase  near  the  tail  of  the  plot  is  probably  due  to  the  dashpot  boundary 
condition.  Figures  20  and  21  show  the  amplitude  and  phase  of  the  Eg  component  along  the 
surface  of  the  sea  water.  Qualitatively,  the  solution  is  similar  to  the  midline  solution.  The 
amplitude  does  not,  however,  drop  off  as  rapidly  and  the  phase  is  shifted  to  a  larger  mean.  It 
is  interesting  to  note  that  at  this  low  frequency  the  ice  has  negligible  effect  on  the  solution. 

The  same  problem  was  studied  for  a  higher  frequency  source  at  1000  hz.  The  mesh 
employed  is  shown  in  Figui  22.  The  seawater  region  is  modeled  for  250  m  by  250  m.  This 
corresponds  to  about  50  skin  depths.  The  mud  is  modeled  for  an  additional  500  m 
corresponding  to  20  skin  depths  in  mud.  The  air  is  modeled  out  to  2000  additional  meters. 
On  all  exterior  boundaries,  the  dashpot  absorbing  conditions  are  employed. 

The  amplititude  and  phase  of  the  Eg  component  are  shown  in  Figures  23  and  24  along  the 
midline  of  the  sea  water.  Again,  solutions  with  and  without  ice  are  shown.  The  solution  has 
a  typical  decaying  amplitude  with  a  sawtoothed  phase  characteristic.  This  is  similar  to  the 
solution  for  a  dipole  in  a  conducting  medium.  It  is  interesting  to  note,  however,  that  while 
the  wavelength  corresponds  to  the  wavelength  of  the  media,  the  decay  is  slower  than  for  a 
dipole  in  infinite  sea  water.  The  amplitude  is  receiving  significant  contribution  from  the 
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surface  waves  along  the  sea  surface.  Along  the  sea  midline,  little  influence  of  the  ice  can  be 
seen. 

Figures  25  and  26  show  the  amplitude  and  phase  of  the  Ez  component  along  the  surface  of 
the  sea  water  (with  and  without  ice).  The  ice  clearly  has  a  significant  influence  on  this 
solution.  The  amplitude  without  ice  follows  the  amplitude  with  ice  for  about  10  skin  depths 
of  the  seawater.  The  two  solutions  then  change  and  the  amplitude  with  ice  is  larger.  Even 
though  ice  has  a  small  conductivity  (1CT5  mhos),  it  acts  as  a  wave  guide  keeping  the  surface 
wave  of  larger  amplitude  than  without  tlu.  ice.  The  phase,  however,  shows  little  difference 
with  and  without  ice.  The  solutions  are  qualitatively  similar  with  the  exception  that  the  ice 
guides  the  surface  wave.  Note  that  the  deviation  of  the  phase  and  the  slight  increase  in 
amplitude  toward  the  end  of  the  plots  is  probably  due  to  reflections  from  the  dashpots. 


EXAMPLE  4:  PLANE  WAVE  SCATTERING  FROM  A  RIGHT  CIRCULAR  CYLINDER 

As  a  final  example,  consider  the  scaHering  of  an  incident  plane  wave  by  an  infinite,  perfectly 
conducting  circular  cylinder.  The  boundary  condition  on  the  cylinder  is  that  the  longitudinal 
component  of  the  electric  field  must  vanish  on  the  surface  of  the  cylinder  and  that  the 
longitudinal  component  of  the  magnetic  field  must  be  normal  to  the  surface.  If  the  governing 
equations  for  the  scattered  wave  only  are  considered,  the  boundary  conditions  for  the 
scattered  wave  must  remove  the  Ez  component  of  the  plane  wave  at  the  cylinder  surface.  In 
addition,  the  normal  derivative  of  the  Hz  component  of  the  plane  wave  must  vanish  at  the 
surface  of  the  cylinder.  At  infinity,  the  scattered  wave  must  vanish.  The  problem  considered 
is  for  a  1  m  cylinder  with  an  incident  plane  wave  of  1  m  wave  length  (the  frequency, 
therefore,  is  3  x  108  Hz). 

The  first  mesh  attempted  employed  eight  elements  in  the  azimuthal  direction  and  quarter 
wavelength  dimension  in  the  radial  direction.  As  is  shown  subsequently,  this  mesh 
performed  adequately  for  the  longitudinal  component  of  the  magnetic  field  but  was  not 
sufficient  to  accurately  solve  the  longitudinal  electric  field  problem.  The  mesh  employed  for 
the  longitudinal  electric  field  component  is  shown  in  Figure  27.  The  mesh  was  generated 
using  the  IDEAS  [7]  package.  The  design  criterion  was  to  generate  a  mesh  as  close  to 
uniform  in  dimension  as  possible  with  an  element  size  equal  to  one  quarter  of  the  incident 
wave  length.  The  performance  of  this  mesh  was  superior  to  that  of  a  mesh  with  fixed  radial 
dimensions  of  one  quarter  of  a  wavelength  and  aspect  ratios  within  1  to  5.  The  zero  field 
condition  was  modeled  with  absorbing  dashpots.  For  this  case,  a  cylindrical  wave  condition 
would  be  superior  due  to  the  geometry  of  the  problem.  This  was  compared  with  the  simple 
dashpot  condition  for  the  magnetic  field  solution. 

Figure  28  is  a  plot  of  the  normalized  amplitude  of  the  scattered  electric  field  intensity  on  the 
forward  scattering  side  of  the  cylinder.  The  overall  agreement  is  quite  good.  The  maximum 
error  is  less  than  5%  compared  with  the  analytic  solution.  Very  near  the  cylinder,  however, 
the  largest  deviation  is  observed.  Indeed  it  is  only  in  this  region  where  the  error  is  larger 
than  1%  Figure  29  is  a  blowup  of  this  region.  The  analytic  solution  flattens  near  the  cylinder 
while  the  finite  element  solution  demonstrates  a  sharp  dip.  There  is  significant  ripple  in  the 
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solution  in  this  region  which  may  indicate  reflection  problems  between  the  cylinder  and  the 
dashpot.  A  blowup  of  the  analytic  solution  is  shown  in  Figure  30.  The  region  which 
appeared  flat  in  Figure  29  has  a  slight  dip  as  demonstrated  in  Figure  30.  The  finite  element 
solution  exaggerates  this  dip.  Since  the  elements  are  on  the  order  of  0.25  m  (one  quarter  of  a 
wavelength),  it  is  evident  from  Figure  30  that  this  mesh  density  would  be  insufficient  to 
totally  reproduce  this  phenomena.  Overall,  however,  the  solution  is  quite  good. 

Figure  31  shows  a  plot  of  the  phase  of  the  forward  scattered  field.  The  finite  element  results 
are  almost  identical  to  the  analytic  solution.  This  demonstrates  that  while  small  amplitude 
errors  may  be  introduced  into  the  solution,  the  general  character  of  the  waves  are  accurately 
predicted  by  the  finite  element  solution.  Figure  32  shows  the  normalized  amplitude  of  the 
scattered  electric  field  on  the  back  side  of  the  cylirder.  The  finite  element  results  agree  very 
well  with  the  analytic  solution.  All  errors  are  bounded  by  1%  even  near  the  dashpot 
boundary  condition.  Figure  33  shows  a  plot  of  the  phase  of  the  electric  field  on  the 
backscattering  side  of  the  cylinder.  Again,  excellent  agreement  is  seen.  The  sawtoothed 
phase  characteristic  is  accurately  predicted  and  the  ramping  behavior  is  accurate. 

For  this  example,  the  longitudinal  component  of  the  magnetic  field  vector  was  also  resolved. 
The  longitudinal  components  of  the  E  and  H  fields  are  the  only  independent  components  for 
the  two  dimensional  applications.  Figure  33  shows  the  amplitude  of  the  Hz  component  as  a 
function  of  distance  away  from  the  cylinder  along  the  back  scattering  side.  The  finite  element 
solution  is  only  negligibly  different  from  the  analytic  solution.  Figure  34  shows  the  amplitude 
along  a  radial  line  at  112.5  degrees  from  the  incident  wave.  This  represents  the  worst  case 
and  yet  the  two  solutions  agree  quite  well.  It  should  be  noted  that  the  total  amplitude  along 
this  line  is  quite  small.  It  is  remarkable  that  the  solution  is  this  accurate.  In  addition,  the 
finite  element  results  quite  accurately  capture  the  spiked  dip  in  the  solution  even  though  only 
four  elements  per  wavelength  were  employed. 

An  important  observation  is  that  accurate  solutions  were  generated  with  approximately  four 
IS2D8  elements  per  wavelength.  This  problem  has  been  solved  previously  with  linear 
quadrilateral  elements  [8],  In  that  study,  ten  elements  per  wavelength  were  required 
necessitating  a  significantly  greater  number  of  degrees  of  freedom  to  achieve  an  accurate 
solution. 


CONCLUDING  REMARKS 


Maxwell’s  equations  were  solved  for  a  variety  of  example  problems  in  two  dimensions.  An 
interesting  outcome  of  the  low  frequency  examples  was  the  ability  to  predict  the  wave  guide 
effects  of  the  ice  in  the  layered  media  problem  and  the  knee  response  in  the  amplitude.  In 
addition,  this  problem  demonstrated  that  relatively  complicated  problems  can  be  solved  by 
routine  methodology.  This  conclusion  should  also  hold  for  three  dimensional  applications. 


The  scattering  example  demonsti ales  the  ability  to  handle  high  frequency  applications.  The 
conclusion  that  only  four  IS2D8  elements  are  required  per  wavelength  indicates  that 
considerable  economy  should  be  realized  by  using  quadratic  elements  for  harmonic  response 
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applications.  This  conclusion  should  be  valid  for  structural  and  acoustic  applications  as  well  as 
for  electromagnetic  applications. 

Since  the  two  dimensional  problems  exhibit  totally  uncoupled  boundary  conditions,  the 
solution  of  two  dimensional  problems  in  electromagnetics  is  the  same  as  solution  of  the  scalar 
wave  equation.  In  three  dimensions,  this  is  not  the  case.  The  boundary  conditions 
encountered  are  often  coupled.  This  poses  a  problem  for  certain  situations. 

A  common  three  dimensional  boundary  condition  is  the  perfect  conducto-  condition  of  zero 
tangential  E  and  normal  H.  For  high  frequency  applications,  this  is  not  a  problem  because 
several  skin  depths  of  the  conductor  can  be  modeled  easily  since  this  dimension  will  be  small 
relative  to  the  conductor’s  size.  The  conductor  will  damp  out  and  absorb  the  waves 
appropriately.  This  indicates  that  radar  cross  section  problems  in  three  dimensions  can  be 
handled  by  elastic  analogies. 

For  low  frequency  applications,  the  presence  of  a  conductor  is  not  as  easy  to  deal  with  since 
the  skin  depth  is  often  large  relative  to  the  size  of  the  conductor.  The  vanishing  of  the 
tangential  E  field  can  be  handled  by  multipoint  constraints  (MPCs).  The  vanishing  of  the 
normal  H  field  is  not  as  trivially  solved.  Methodologies  for  enforcing  this  condition  are  under 
investigation.  It  may  be  possible  to  extend  the  concept  of  MPCs  to  include  linear 
combinations  of  first  partial  derivatives.  This  would  solve  the  problem. 

The  other  major  problem  to  be  addressed  is  the  fact  that  many  electromagnetic  problems  are 
exterior  problems.  They  involve  either  extremely  large  or  infinite  domains.  The  solution  is 
of  interest,  however,  only  in  a  small  domain.  It  is  necessary,  therefore,  to  reduce  the 
modeled  domain  and  to  implement  a  boundary  condition  which  accounts  for  the  remaining 
media.  In  this  paper,  the  simple  plane  wave  condition  was  employed.  While  this  works, 
often  large  domains  must  be  modeled.  Other  conditions  have  been  explored;  however, 
additional  research  is  required.  Infinite  elements  (employed  for  some  limited  scalar 
applications  (9])  hold  promise.  These  are  currently  being  investigated  also. 

The  remainder  of  the  boundary  conditions  encountered  in  most  applications  can  be  handled 
trivially  with  elastic  finite  element  codes  like  NASTRAN.  This  paper  has  demonstrated  the 
ability  to  handle  two  dimensional  problems  and  has  provided  the  formulation  for  three 
dimensional  problems.  When  absorbing  boundary  conditions  become  available  and  the  zero 
normality  condition  for  the  H  field  is  developed,  it  will  be  possible  to  solve  virtually  all 
problems  in  electromagnetics  (which  adhere  to  the  assumptions  of  Maxwell’s  equations)  with 
elastic  finite  element  codes  like  NASTRAN. 
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Fig.  l.  FINITE  ELEMENT  MODEL  FOR  POINT  DIPOLE  IN  FREE  SPACE 


Fig.  2.  RADIAL  DIPOLE  MODEL 
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Fig.  4.  AMPLITUDE  FOR  POINT  DIPOLE  IN  FREE  SPACE 


230 


NORMALIZED  E-Z  COMPONENT 


u 

as 

o 

At 

X 

o 

U 

N 

I 

w 

w 

g 

o 

w 

w 

s 


DISTANCE  IN  METERS 


_ _ -  ANALYTIC 

OOOO  ft* 


Fig.  5.  PHASE  FOR  POINT  DIPOLE  IN  FREE  SPACE 
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Fig.  7 


.  NEAR  FIELD  PHASE  FOR  POINT  DIPOLE  IN  FREE  SPACE 


Fig.  8.  FINITE  ELEMENT  MODEL  FOR  POINT  DIPOLE  IN  SEA  WATER 


Fig.  9.  RADIAL  DIPOLE  MODEL  IN  SEA  WATER 


Fig.  10.  NEAR  DIPOLE  MODEL  IN  SEA  WATER 
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Fig.  11.  AMPLITUDE  ALONG  HORIZONTAL  SYMMETRY  AXIS  FOR  POINT  DIPOLE 
IN  SEA  WATER 
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Fig.  12.  PHASE  ALONG  HORIZONTAL  SYMMETRY  AXIS  FOR  POINT  DIPOLE  IN 
SEA  WATER 
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Fig.  13. 


AMPLITUDE  ALONG  VERTICAL  SYMMETRY  AXIS  FOR  POINT  DIPOLE  IN 
SEA  WATER 
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Fig.  14.  PHASE  ALONG  VERTICAL  SYMMETRY  AXIS  FOR  POINT  DIPOLE  IN  SEA 
WATER 
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Fig.  15.  POINT  DIPOLE  IN  SEA  WATER  WITH  AIR,  ICE  AND  MUD 
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ig.  18.  FINITE  ELEMENT  MODEL  FOR  DIPOLE  IN  SEA  WATER  WITH  AIR 
AND  ICE 
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Fig.  17.  BLOWUP  OF  SEA  WATER  REGION 
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Fig.  18.  AMPLITUDE  OF  E-Z  ALONG  SEA  MIDLINE  -  1  HZ. 


DISTANCE  ALONG  THE  INTERFACE 


MTV  ICS  MjONC  MA-ICZ  tOUNQMY 
,  HO  let  •>  ALONG  SKA'All  KXMOAtY 


Fig.  21.  PHASE  OF  E-Z  ALONG  SEA  SURFACE  -  1  HZ. 
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Fig.  24.  PHASE  OF  E-Z  ALONG  SEA  MIDLINE  -  1000  HZ. 
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Fig.  25.  AMPLITUDE  OF  E-Z  ALONG  SEA  SURFACE  -  1000  HZ. 
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Fig.  26.  PHASE  OF  E-Z  ALONG  SEA  SURFACE  -  1000  HZ. 
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Fig.  27.  FINITE  ELEMENT  MESH  FOR  SCATTERING  ABOUT  CIRCULAR  CYLINDER 
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Fig.  28.  AMPLITUDE  OF  THE  FORWARD  SCATTERED  E-Z  WAVE 
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Fig.  29.  BLOWUP  OF  THE  SCATTER  IN  THE  E-Z  AMPLITUDE  SOLUTION 


Fig.  30.  NEAR  CYLINDER  BEHAVIOR  IN  THE  ANALYTIC  SOLUTION 


243 


AMPLITUDE  OF  E-Z  PHASE  OF  E- 


Fig.  31.  PHASE  OF  THE  FORWARD  SCATTERED  E-Z  WAVE 


Fig.  32.  AMPLITUDE  OF  THE  BA CKSC ATTERED  E-Z  WAVE 
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Fig.  33.  PHASE  OF  THE  BACK  SCATTERED  E-Z  WAVE 
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Fig.  34.  AMPLITUDE  OF  THE  BACKSCATTERED  H-Z  WAVE 
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Fig.  35.  WORST  CASE  FOR  THE  AMPLITUDE  OF  THE  H-Z  WAVE 


CALCULATION  OF  LOW  FREQUENCY  VIBRATIONAL  RESONANCES  OF  SUBMERGED  STRUCTURES 
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ABSTRACT 

Numerical  techniques  for  calculating  the  low  frequency  vibrational 
resonances  of  submerged  structures  are  reviewed.  Both  finite  element  and 
boundary  element  approaches  for  calculating  fully-coupled  added  mass  matrices 
for  use  in  NASTRAN  analysis  are  described  and  illustrated.  The  finite  element 
approach  is  implemented  using  existing  capability  in  NASTRAN.  The  boundary 
element  approach  uses  the  NASHUA  structural-acoustics  program  to  compute  the 
added  mass  matrix.  The  two  procedures  are  compared  to  each  other  for  the  case 
of  a  submerged  cylindrical  shell  with  flat  end  closures.  It  is  concluded 
that  both  procedures  are  capable  of  computing  accurate  submerged  resonances 
and  that  the  more  elegant  boundary  element  procedure  is  easier  to  use  but  may 
be  more  expensive  computationally. 


INTRODUCTION 

One  problem  of  interest  in  numerical  structural-acoustics  is  that  of 
determining  the  natural  vibrational  frequencies  of  general  submerged 
structures.  At  low  frequencies,  it  is  known*  that  the  fluid  appears  to  the 
structure  like  an  added  mass  (i.e.,  the  fluid  pressure  on  the  wet  surface  is 
in  phase  with  structural  acceleration).  At  higher  frequencies,  the  fluid 
impedance  (the  ratio  of  fluid  pressure  to  velocity)  is  mathematically  complex, 
since  it  involves  both  mass-like  and  damping-like  effects.  The  primary 
difference  between  these  two  situations  from  a  computational  point  of  view  is 
that  the  low  frequency  calculation  can  be  performed  using  standard  real 
eigenvalue  analysis  techniques,  whereas  the  higher  frequency  calculation 
requires  more  expensive  complex  eigenanalysis .  In  addition,  as  frequency 
increases,  the  added  mass  effects  decline  and  the  damping  (or  piston)  effects 
increase,  so  that  the  interpretation  of  the  complex  eigenvectors  as  "normal 
modes"  becomes  more  difficult.  For  shell  structures,  such  complications 
become  somewhat  academic,  since  shells  have  high  modal  density  above  the 
first  few  modes,  making  the  usefulness  of  computing  such  modes  in  doubt 
anyway. 

Consequently,  for  this  paper,  we  restrict  our  interest  to  the  calculation 
of  low  frequency  modes,  in  which  case  the  finite  element  calculation  of 
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submerged  resonances  reduces  to  that  of  computing  the  added  mass  effects  of 
the  surrounding  fluid  on  the  structure.  The  added  mass  calculation  requires 
solving  Laplace's  equation  in  the  fluid  domain  exterior  to  the  structure,  a 
calculation  which  can  be  performed  using  either  finite  element  or  boundary 
element  techniques,  among  others.  Here  we  describe  the  NASTRAN  computation 
of  submerged  natural  frequencies  using  both  approaches.  We  start  by 
summarizing  the  relevant  theory  and  then  illustrate  the  two  approaches  using 
as  an  example  the  vibrations  of  a  submerged  cylindrical  shell  with  flat  end 
closures. 


THEORETICAL  APPROACHES 

Consider  an  arbitrary  three-dimensional  elastic  structure  submerged  in  a 
heavy  fluid  like  water.  The  structure  is  modeled  mathematically  using  the 
equations  of  elasticity  and  the  engineering  approximations  for  beams,  plates, 
and  shells.  A  finite  element  model  of  a  free,  undamped  structure  yields  the 
matrix  equation 


Mu  +  Ku  =  0, 


(1) 


where  M  and  K  are  the  structural  mass  and  stiffness  matrices,  respectively, 
and  u  is  the  vector  of  displacement  components.  The  fluid  is  modeled 
mathematically  as  a  medium  for  which  the  pressure  satisfies  (in  the  time 
domain)  the  scalar  wave  equat.ion2,3 


v2p  =  p/c2, 


(2) 


where  c  is  the  speed  of  sound  in  the  fluid.  At  the  fluid-structure  interface, 
momentum  and  continuity  considerations  require  that  the  fluid  pressure  be 
applied  to  the  structure  and  that  the  normal  derivative  of  pressure  be 
proportional  to  normal  acceleration: 


3p/3n  =  -piin, 


(3) 


where  n  is  the  outward  normal  (from  the  structure  into  the  fluid)  at  the 
interface,  and  p  is  the  mass  density  of  the  fluid.  We  consider  two  numerical 
approaches  to  treating  the  fluid  domain:  finite  element  and  boundary  element. 


Finite  Element  Approach 


Since  the  scalar  wave  equation  (2)  is  a  special  case  of  the  vector  wave 
equation  satisfied  by  the  structural  displacements,  the  fluid  domain  can  be 
modeled  using  the  same  types  of  elastic  finite  elements  used  to  model  the 
structure  if  an  analogy  is  drawn  between  structural  displacement  and  fluid 
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pressure. 4  Thus,  if  finite  elements  are  used  to  model  both  structure  and 
fluid,  the  system  of  coupled  equations  which  results  is  of  the  form 


M  0 

.-PL?  Q  J 


(4) 


where  p  is  the  vector  of  fluid  pressures  at  the  fluid  grid  points,  Q  and  H 
are  the  fluid  counterparts  to  the  structural  mass  and  stiffness  matrices, 
respectively,  -L  is  the  rectangular  area  matrix  which  converts  a  vector  of 
fluid  pressures  (positive  in  compression)  at  the  wet  structural  points  to  a 
vector  of  forces  at  all  points  in  the  output  coordinate  systems  selected  by 
the  user,  and  C  is  a  radiation  boundary  condition  matrix  with  nonzero  entries 
only  for  fluid  DOF  on  the  outer  boundary.  (Radiation  boundary  conditions  are 
intended  to  transmit,  rather  than  reflect,  outgoing  waves.)  A  useful 
alternative  to  the  nonsymmetric  system,  Eq.  4,  is  the  symmetric  potential 
formulation, 3  which  is  obtained  by  transforming  from  fluid  pressure  p  to 
fluid  velocity  potential  q  (the  time  integral  of  pressure)  as  the  fundamental 
fluid  unknown: 
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-J 

o 

1 _ 

1  “1 
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- 1 

1 — 

o 

l  4  1 

1  L 

(5) 


To  model  the  fluid  with  standard  elastic  finite  elements,  we  let  the 
z-component  of  displacement  represent  the  velocity  potential  q,  fix  all  other 
DOF  at  fluid  grid  points,  and  specify  the  fluid  element  elastic  properties  as2 


Ge  =  -1/p,  Ee  =  -102t)/p,  ve  =  unspecified. 


(6) 


where  the  subscript  "e"  is  added  to  emphasize  that  these  are  the  values 
entered  on  input  data  cards  (e.g.,  MAT!  in  NASTRAN)  for  the  elements.  Under 
the  analogy,  the  element  "mass  density"  pe  specified  for  the  fluid  is 


(0,  incompressible  fluid  (c  ») 

(7) 

-l/(pc2),  compressible  fluid  (c  finite). 


This  specification  of  material  properties  is  required  for  symmetry  of  the 
coefficient  matrices  in  Eq.  5. 

For  large  expanses  of  exterior  fluid,  only  a  small  portion  of  fluid  need 
be  modeled. 5,6  For  an  incompressible  fluid,  the  outer  boundary  may  be  located 
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at  one  or  two  structural  diameters  away  from  the  structure  and  a  pressure- 
release  (p=0)  boundary  condition  imposed  (with  SPCs).  For  a  compressible 
fluid,  the  outer  boundary  is  located  at  one  or  two  acoustic  wavelengths  away 
from  the  structure,  and  dashpots  of  constant  -A/(pc)  are  attached  between 
the  fluid  DOF  and  ground  to  absorb  (approximately)  the  outgoing  waves.  (This 
is  the  plane-wave  absorbing  boundary  condition.) 

The  above  theoretical  description  allows  for  the  possibility  of  fluid 
compressibility  effects,  which  impose  requirements  on  the  fluid  mesh  size  and 
extent  and  require  complex  eigenanalysis  for  the  solution  of  Eq.  4.  Since 
often  the  interest  is  in  low  frequency  vibrations,  which  is  equivalent  to 
assuming  fluid  incompressibility,  we  specialize  the  above  equations  to  the 
case  c  00 .  For  an  incompressible  fluid,  the  matrices  Q  and  C  above  vanish, 

and  the  coupled  system  (4)  simplifies  to 


M 

0  ' 

|u| 

'  K 

L  ' 

H 

+ 

.  -pLT 

0  . 

1  P  1 

.  0 

H  _ 

1  p  1 

(8) 


An  alternative  form  of  Eq.  8  results  if  the  pressure  vector  p  is  eliminated 
from  this  system  to  yield 


(M  +  Ma)  u  +  K  u  =  0,  (9) 

where  the  symmetric,  non’-banded  matrix  Ma  =  pLH“^LT  is  referred  to  as  the 
added  mass  matrix. 

The  low  frequency  (added  mass)  vibration  problem  can  be  solved  using  the 
symmetric  potential  formulation  (Eq.  5  with  Q  and  C  both  zero),  the  pressure 
formulation  (Eq.  8),  or  the  added  mass  matrix  formulation  (Eq.  9).  The  last 
form,  Eq.  9,  has  the  advantage  of  being  in  standard  form  for  a  real  eigenvalue 
problem  and,  moreover,  allows  the  added  mass  matrix  to  be  calculated  using 
any  suitable  approach,  including  boundary  elements  and  finite  elements. 
However,  Eq.  9  has  the  (considerable)  disadvantage  that  matrix  bandedness  is 
destroyed,  since  Ma  couples  all  the  wet  DOF  to  each  other.  If  the  surrounding 
fluid  domain  is  modeled  with  finite  elements,  the  eigenvalue  problem  can 
alternatively  be  solved  using  Eqs.  5  or  8,  which  have  more  DOF  than  Eq.  9  but 
remain  banded  (if  the  structural  and  fluid  unknowns  are  properly  sequenced). 
The  main  distinction  between  Eqs.  5  and  8  is  that  the  latter  involves 
nonsymmetric  coefficient  matrices.  Although  Eq.  8  is  a  real  eigenvalue 
problem,  it  can  not  be  solved  as  such  by  NaSTRAN  (because  of  the  nonsymmetry) 
and  must  be  solved  using  complex  eigenvalue  analysis. 


250 


where  8  is  defined  as  the  angle  between  the  normal  £  and  the  vector  r_,  as 
shown  in  Fig.  1. 

The  substitution  of  Eqs.  11-13  into  the  surface  equation  (10)  yields 

p(x')/2  -  /  p(x)  (e-i^r/4TTr)  (ik  +  1/r)  cos  g  dS 
~  S 

=  imp  /  vn(x)  (e“-*-*cr/4'irr)dS .  (14) 

S 

This  integral  equation  relates  the  fluid  pressure  p  and  normal  velocity  vn  on 
S.  If  Eq.  14  is  discretized  for  numerical  computation  (the  details  of  which 
were  presented  previously^),  we  obtain  the  matrix  equation 


Ep  =  Cvn 


(15) 


on  S.  The  dimensionality  of  this  system  (i.e.,  the  dimension  of  vectors  p 
and  vn)  is  f,  the  number  of  fluid  DOF  (the  number  of  wet  points  on  the  surface 
S).  Hence,  the  added  mass  matrix  (the  matrix  which  converts  fluid 
acceleration  to  fluid  force)  is,  in  terms  of  the  fluid  DOF, 


Mn  =  AE“^C/iw, 


(16) 


where  A  is  the  diagonal  fxf  area  matrix  for  the  wet  surface.  As  given  above, 
Mn  is  full ,  syir.mCt:  r1*  c  t  frequency-dependent,  and  complex.  The  low  frequency 
(incompressible  fluid)  added  mass  matrix  is  obtained  by  evaluating  Mn  in  the 
limit  cj  0.  An  inspection  of  the  formulas^  for  the  entries  in  the  fluid 
matrices  E  and  C  reveals  that,  for  small  frequency,  E  is  real  and  constant, 
and  C  is  purely  imaginary  and  proportional  to  to.  Thus,  to  compute  Mn  in  Eq. 
16,  we  consider  only  the  real  parts  of  E  and  C/ito  for  small  to.  With  this 
interpretation,  the  added  mass  matrix  Mn  is  now  full,  symmetric,  real,  and 
independent  of  frequency. 

To  relate  the  f  normal  DOF  on  the  wet  surface  to  the  complete  set  of  s 
independent  structural  DOF,  we  introduce  a  transformation  matrix  G,  which  is 
defined  as  the  rectangular  sxf  matrix  of  direction  cosines  to  transform  a 
vector  Fn  of  outward  normal  forces  at  the  wet  points  to  a  vector  F  of  forces 
at  all  points  in  the  output  coordinate  systems  selected  by  the  user.  Thus, 10 


F  =  GFn »  vn  =  gIv’  and  an  =  cla> 


(17) 


where  v  and  a  are  the  velocity  and  acceleration  vectors  for  the  independent 
structural  DOF,  respectively,  and  the  subscript  n  is  used  to  denote  the 
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Boundary  Element  Approach 


The  added  mass  matrix  in  Eq.  9  can  also  be  obtained  by  boundary  element 
techniques. 7~H  In  the  frequency  domain,  where  the  time  dependence  exp(iiot) 
is  suppressed,  the  basis  for  such  an  approach  is  the  Helmholtz  surface 
integral  equation  satisfied  by  the  fluid  pressure  p  on  the  surface  S  of  a 
submerged  structure: 


/  p(x)(3D(r)/3n)dS  -  /f  q(x)D(r)dS  =  p(x')/2, 

S  S 


x'  on  S 


(10) 


where  D  is  the  Green's  function 


D(r)  =  e“ikr/4Trr , 

(ID 

q  =  3p/3n  =  -ia>pvn, 

(12) 

k  =  w/c  is  the  acoustic  wave  number,  c  is  the  speed  of  sound  in  the  fluid, 
r  is  the  distance  from  _x  to  _x'  (fig*  1)»  P  is  the  mass  density  of  the  fluid, 
and  vn  is  the  outward  normal  component  of  velocity  on  S.  As  shown  in  Fig.  1, 
x_  and  x.'  in  Eq.  4  are  the  position  vectors  for  points  Pj  and  on  the  surface 
S,  the  vector  r_  =  x.T  “  x. ,  and  jn  is  the  unit  outward  normal  at  Pj.  >?e  denote 
the  lengths  of  the  vectors  x,  x ' ,  and  £  by  x,  x',  and  r,  respectively.  The 
normal  derivative  of  the  Green's  function  D  appearing  in  Eq.  10  can  be 
evaluated  as 

3D(r)/3n  =  (e_i'<r/4nr )  (ik  +  1/r)  cos  0,  (13) 


FLUID 


Pi 
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outward  normal  components  of  these  vectors.  For  time-harmonic  analysis, 
v  =  itou  and  a  =  iwv.  The  transformation  matrix  G  can  then  be  used  to 
transform  the  added  mass  matrix  displayed  in  Eq.  17  from  normal  DOF  to 
the  independent  structural  DOF: 


=  GAE-1(C/iu))GT. 

a 


(18) 


Here  again,  we  consider  only  the  real  parts  of  E  and  C/ioj  for  small  w.  The 
matrix  Ma  given  above  is  the  boundary  element  equivalent  of  the  finite  element 
matrix  of  the  same  name  defined  following  Eq.  9.  Ma  is  real,  symmetric, 
non-banded,  and  independent  of  frequency.  (The  symmetry  of  Ma,  while  not 
obvious  from  the  above  definition,  follows  by  reciprocity  arguments.) 

We  note  that  the  coupling  matrix  L  defined  in  Eq.  4  is  the  product  of 
the  transformation  and  area  matrices  G  and  A. 

We  clearly  co.  ve  started  with  the  Laplace,  rather  than  the 

Helmholtz,  integral  elution  and  avoided  the  complex,  frequency-dependent 
matrices.il  We  chose  this  approach  since  the  four  matrices  G,  A,  E,  and  C 
needed  to  compute  the  added  mass  matrix  Ma  are  readily  available  in.  NASTRAN 
form  from  the  computer  program  called  SURF,  which  is  part  of  the  NASHUA 
structural-acoustics  package. 


NASTRAN  IMPLEMENTATIONS 
Finite  Element  Approach 

The  finite  element  procedure  used  here  to  compute  resonances  of  submerged 
shells  is  the  symmetric  potential  f trmulac-on  as  shown  in  Eq.  5  except  that, 
for  incompressible  fluids,  the  matrices  Q  and  C  are  both  zero.  To  solve  this 
system  with  NASTRAN, 12  a  finite  element  model  required  for  both  the 
structure  and  &  portion  of  the  surrounding  fluid,  ihe  model  for  the  structure 
is  constructed  in  the  usual  way.  The  model  for  the  fluid  domain  is 
constructed  using  any  of  the  general  elastic  elements  which  are  geometrically 
compatible  wirh  the  elements  chosen  for  tie  structure.  Thus,  if  the  structure 
ic  modeled  Mtu  QUAD4s ,  the  fluid  should  be  modeled  with  IHEXls;  if  the 
structure  rs  modeled  uuth  CONEAX  element j,  the  fluid  should  be  modeled  with 
TR1AAX  or  TRAPAX  elements. 

Since  the  z  component  of  dispLaueme?it  represents,  by  analogy  (in  both 
Cartesian  and  cylindrical  cocidinate  systems),  the  scalar  velocit. /  potential 
a  in  Eq.  5,  all  other  DO V  «t  fluid  merh  pointr  are  eliminated  by  single  point 
constraints.  The  material  properties  are  assigned  to  the  fluid  elements 
according  to  Eqs.  6  and  7a.  If  the  fluid  rs  considered  to  be  of  infinite 
extent,  the  finite  element  m.xlel  of  the  fluid  choulc  be  truncaced  not  closer 
than  one  shell  diameter  away  from  the  sbt-ll,  where  a  pressure-release  (q-»0) 
boundary  conditio  i  is  impored 
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The  coupling  matrix  L  is  entered  as  a  symmetric  "damping"  matrix  using 
NASTRAN's  direct  matrix  input  (DMIG)  data  cards.  L  has  nonzero  entries  only 
at  the  intersections  of  matrix  columns  associated  with  interface  fluid  DOF 
with  rows  associated  with  the  translational  DOF  of  coincident  structural 
points.  Each  nonzero  entry  of  L  is  a  component  of  the  outwardly-directed 
area  vector,  which  is  a  normal  vector  whose  magnitude  is  equal  to  the  area 
assigned  to  a  wet  point.  The  resulting  system  is  solved  using  NASTRAN's 
direct  complex  eigenvalue  analysis  (Rigid  Format  7)  because  of  the  presence 
of  the  coupling  matrix  in  the  "damping"  matrix.  (However,  since  there  is  no 
actual  damping,  all  the  natural  frequencies  are  real.) 

Since  both  structural  and  fluid  DOF  are  included  in  the  finite  element 
model,  the  interpretation  of  tabular  output  is  aided  if  only  the  structural 
DOF  are  printed  and  the  printing  of  the  fluid  unknowns  is  suppressed. 


.  Boundary  Element  Approach 

Tne  boundary  element  generation  of  the  added  mass  matrix  is  implemented 
using  the  fluid  matrix  generation  capability  available  in  the  NASHUA  processor 
called  SURF. 9  For  each  unique  set  of  symmetry  constraints,  the  procedure 
involves  two  steps,  the  first  of  which  is  identical  to  the  first  step  of  a 
NASHUA  structural-acoustic  analysis.  In  general,  this  step  is  a  NASTRAN 
analysis  whose  primary  purpose  is  to  generate  an  0UTPUT2  file  containing 
geometric  information  and  the  definition  of  the  wet  surface  of  the  structure. 
The  second  stop  (described  here  for  the  first  time  for  added  mass  matrix 
generation)  involves  the  sequential  execution  of  SURF  (which  generates  the 
matrices  G,  A,  E,  and  C  appearing  in  Eq«  18)  followed  by  NASTRAN  for  the  real 
eigenvalue  analysis.  For  completeness,  we  describe  both  steps  in  the  boundary 
element  approach  to  compute  submerged  resonances. 

The  first  step  is  a  modified  NASTRAN  direct  frequency  response  analysis 
in  which  the  structure  is  defined  and  an  outwardly-directed  static  unit 
pressure  load  applied  to  the  wet  faces  of  all  elements  in  contact  with  the 
exterior  fluid.  This  load,  which  is  invoked  using  the  case  control  card 
LOAD,  is  used  to  generate  areas  and  normals.  In  addition,  the  following  DMAP 
Alter  is  inserted  Into  the  Executive  Control  Deck: 

ALTER  1  $  NASHUA  STEP  1,  COSMIC  1988  RF8  (REVISED  12/14/87) 

ALTER  21,21  $  REPLACE  GP3 

GP3  GE0M3 , EQEXIN,GE0M2/SLT,GPTT/S ,N, N0GRAV/NEVER=1  $  SLT 

ALTER  117,117  $  REPLACE  FRRD 

SSG1  SLT,BGPDT,CSTM,SIL,EST,MPT,GPTT,EDT,MGG,CASECC,DIT/ 
PG/LUSET/NSKIP  $  PG 

SSG2  USET , GM , YS , KFS , GO , DM , PG/QR , PO , PS , PL  $  PL 

0UTPUT2  BGPDT,EQEXIN,USET,PG,PL  $ 

0UTPUT2  CS'tM ,  ECT , , ,  $ 

0UTPUT2  ,,,,  / /-9  $ 

EXIT  $ 

ENDALTER  $ 
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The  UT1  file  created  by  0UTPUT2  must  be  saved  after  the  NASTRAN  execution. 

The  second  step  in  this  procedure  consists  of  the  sequential  execution 
of  the  NASHUA  processor  SURF  followed  by  NASTRAN.  SURF  reads  the  UT1  file 
generated  in  Step  1  and  generates  the  matrices  G,  A,  E,  and  C  appearing  in 
Eq.  18.  These  matrices  are  written  in  NASTkAN's  INPUTT2  format.  Since  SURF 
generate's  the  frequency-dependent  fluid  matrices  E  and  C  for  compressible 
fluids,  a  small  (but  nonzero)  frequency  must  be  specified  as  input  for  the 
generation  of  these  matrices.  The  nondimensional  frequency  ka  =  0.01  is  a 
reasonable  choice,  where  a  is  a  typical  length  (e.g.,  radius)  of  the 
structure.  Following  SURF,  a  modified  NASTRAN  real  eigenvalue  (Rigid  Format 
3)  analysis  is  performed.  The  following  DMAP  Alter  is  included  in  this  run: 

ALTER  1  $  ADDED  MASS  MATRIX,  COSMIC  1988  RF3  (REVISED  12/22/88) 

ALTER  3  $ 

INPUTT2  /G , A , CT , E , DAT  $  READ  FLUID  MATRICES  FROM  SURF 

ALTER  69  $  BEFORE  READ 

PARAML  DAT/ / *DMI* / 1 / 2 /FREQ  $  GET  FREQ  FROM  DAT 

PARAMR  //*COMPLEX*//FREQ/0./FREQC  $  FREQ+I*0 
PARAMR  //*MPYC*////W/FREQC/(6. 283185,0.)  $  OMEGA 
PARAMR  //*MPC*////IW/W/(0. ,1.)  $  I*0MEGA 
PARAMR  //*DIVC*////IWI/(1.0,0.0)/iw  $  1/IW 
DIAGONAL  A/PVECF/*COLUMH*/0.  $  FLUID  SET  VECTOR  OF  t 'S 
DIAGONAL  KAA/PVECA/ *COLUMN*/0.  $  A-SET  VECTOR  OF  l'S 

ADD  CT, /CTIW/IWI  $  CT/IW 

PARTN  CTIW.PVECF ,/ , ,CTIWR,/L/1  $  EXTRACT  REAL  PART  OF  CT/IW 
PARTN  E,PVECF,/, ,ER,/1/!  $  EXTRACT  REAL  PART  OF  E 

TRNSP  G/GT  $ 

TRNSP  CTIWR/CIW  $ 

SOLVE  ER.CIW/EICIW  $ 

MPYAD  A,EICIW,/AEICIW/1  $  REAL  NONSYM  ADDED  MASS  (FLUID  DOF) 

PARTN  AEICIW,PVECF,/, ,MADDF, /1/1///6  $  REAL  SYM  ADDED  MASS  (F-DOF) 

MPY3  GT,MADDF,/MADDS  $  REAL  SYM  ADDED  MASS  (STRUCTURAL  DOF) 

ADD  MAA,MADDS/MSUM  $  STRUCTURAL  +  ADDED  MASS 

EQUIV  MSUM.MAA  $  REPLACE  MAA  WITH  SUM 
ENDALTER  $ 

This  Alter  combines  the  input  matrices  G,  A,  E,  and  C  to  form  the  added  mass 
matrix  Ma  according  to  Eq.  18  and  replaces  the  structural  mass  matrix  M  with 
the  sum  M  +  Ma.  To  assure  compatibility  with  the  frequency  used  in  SURF,  the 
frequency  is  passed  from  SURF  to  NASTRAN  for  use  in  this  Alter.  The  real 
parts  of  the  complex  matrices  E  and  C^/iw  are  extracted  as  soon  as  possible 
in  the  Alter  so  that  less  expensive  real  arithmetic  can  be  performed  as  much 
as  possible.  (Real  parts  of  matrices  can  be  extracted  by  executing  a  dummy 
PARTN  module  to  redefine  a  complex  matrix  as  real..  The  same  trick  can  also 
be  used  to  declare  as  symmetric  a  symmetric  matrix  which  NASTRAN  thinks  is 
nonsymmetric. ) 

The  use  of  checkpoint  may  optionally  link  the  two  steps  in  this 
procedure.  However,  in  any  case,  the  user  must  ensure  thac  NASTRAN's  internal 
grid  point  sequence  (as  generated  by  the  BANDIT  module)  is  the  same  in  both 


255 


steps.  Otherwise,  the  sequence  used  for  the  generation  of  the  SURF  matrices 
would  not  agree  with  that  used  when  the  matrices  are  combined  in  the  second 
step. 


NUMERICAL  EXAMPLE 


We  illustrate  these  procedures  by  computing,  using  both  finite  element 
and  boundary  element  techniques,  the  fluid-loaded  resonances  of  a  submerged 
cylindrical  shell  with  flat  end  closures.  The  particular  problem  solved  has 
the  following  characteristics: 


a  =  5  m 
L  =  60  m 
h  =  0.05  m 
E  =  1.96  x  10l 1  N/m2 
v  =  0.3 

pg  -  7900  kg/m3 
p  =  1000  kg/m3 
c  =  1500  m/sec 


mean  shell  radius 
shell  length 

shell  thickness  (shell  and  end  plate) 

Young's  modulus 

Poisson's  ratio 

shell  density 

fluid  density 

fluid  speed  of  sound 


For  the  finite  element  model  of  both  structure  and  fluid,  a  half-length 
model  was  prepared  using  axisymmetric  elements  (the  conical  shell  CONEAX  for 
the  shell  and  the  triangular  ring  TRIAAX  for  the  fluid),  as  shown  in  Fig.  2. 
The  structural  model  consisted  of  2i  elements  over  the  half-length  and  four 
elements  on  the  end  plate.  The  outer  boundary  of  the  fluid  model  was  located 
about  16  meters  from  the  axis  of  the  shell.  Symmetry  conditions  were  imposed 
at  the  mid-length,  thus  restricting  the  available  modes  to  those  symmetric 
with  respect  to  the  mid-length.  The  NASTRAN  bulk  data  for  this  model  were 
generated  automatically  by  a  special  purpose  fluid-structure  data  generator 
called  SFG  written  by  Richard  J.  Kazden  of  the  David  Taylor  Research  Center. 


Fig.  2.  Axisymmetric  finite  element  model  of  structure  and  fluid. 
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For  che  analysis  with  added  mass  effects  generated  by  boundary  elements, 
a  general  shell  model  of  the  structure  was  prepared  using  NASTRAN's  four-node 
isoparametric  membrane/bending  quadrilateral  plate  element  QUAD4.  A  quarter 
model  was  prepared  (half  the  length  and  half  the  circumference)  using  25 
elements  longitudinally,  12  elements  circumferentially,  and  four  elements 
radially  on  the  end  plate,  as  shown  in  Fig.  3.  Symmetry  was  imposed  at  both 
planes  of  geometric  symmetry.  Since  all  fluid  effects  were  computed  by  the 
NASHUA  processor  SURF,  no  fluid  mesh  was  required. 

Four  analyses  were  performed  for  this  problem: 

1  -  conical  shell  model,  in-vacuo,  circumferential  harmonic  n  <  5,  715  DOF, 

2  -  QUAD4  model,  in-vacuo,  2093  DOF, 

3  -  conical  shell  model,  fluid-loaded,  finite  element  added  mass  effects, 

n  <  5,  1465  DOF,  and 

4  -  QUAD4  model,  fluid-loaded,  boundary  element  added  mass  effects,  2093  DOF 

(matrices  not  banded). 

The  first  21  natural  frequencies  and  mode  shapes  were  found  among  those 
which  have  circumferential  index  n  <  5  and  are  symmetric  with  respect  to  the 
mid-length  plane.  The  results  of  these  calculations  are  shown  in  the  table 
on  the  next  page.  The  second  column  in  the  table  (Harm,  n)  denotes  the 
circumferential  harmonic  index,  the  number  of  fuli  waves  around  the 
circumference.  (For  the  end  plate,  n  thus  denotes  the  number  of  nodal 
diameters.)  The  third  column  (Shell  m)  denotes  the  number  of  longitudinal 
half  waves.  The  fourth  column  (Plate  m)  denotes  the  number  of  nodal  circles 
(plus  one)  in  the  end  plate.  The  next  two  columns  of  the  table  list  the 
in-vacuo  natural  frequencies  (in  Hz.)  of  the  cylindrical  shell  for  both  the 
conical  shell  and  QUAD4  models.  The  next  two  columns  of  the  table  list  the 


Fig.  3.  QUAD4  finite  element  model  of  cylindrical  shell. 
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Table.  In-Vacuo  and  Fluid-Loaded  Natural  Frequencies  of  Cylindrical 

Shell  with  Flat  End  Plates 


No. 

Mode  ! 

Frequency 

(Hz) 

Harm. 

n 

Shell 

m 

Plate 

m 

|  CONEAX 
in-vacuo 

QUAD4 

in-vacuo 

CONEAX  subm. 
(F.E.  mass) 

QUAD4  subm. 
(B.E.  mass) 

Approx. 

Theory 

1 

1 

0 

0 

0 

0 

0 

0 

2 

2 

1 

2.72 

|  2.72 

1.13 

1.13 

1.11 

3 

3 

1 

3.84 

3.90 

1.79 

1.81 

1.77 

4 

0 

1 

4.27 

4.22 

1.63 

1.44 

1.38 

5 

4 

1 

7.04 

7.19 

3.61 

3.67 

3.57 

6 

A 

3 

9.29 

9.34 

4.81 

4.82 

4.70 

7 

1 

1 

9.53 

9.20 

4.44 

4.26 

4.22 

8 

3 

3 

10.4 

10.4 

4.94 

4.93 

4.82 

9 

5 

1 

11.3 

11.6 

6.31 

6.38 

6.18 

10 

5 

3 

12.2 

12.4 

6.83 

6.86 

6.67 

11 

1 

3 

13.4 

13.3 

7.04 

6.88 

12 

2 

1 

15.6 

15.1 

8.31 

8.02 

13 

5 

5 

15.8 

15.9 

8.99 

8.88 

8.65 

14 

0 

2 

15.9 

16.4 

8.66 

8.40 

15 

4 

5 

17.0 

16.9 

8.94 

8.85 

8.66 

16 

2 

3 

3 

18.6 

18.5 

8.05 

8.07 

7.75 

17 

3 

1 

22.7 

22.4 

13.2 

13.0 

18 

5 

7 

22.9 

22.8 

13.2 

12.9 

12.6 

19 

3  1 

5 

24.5 

24.1 

11.9 

11.9 

1.’ .5 

20 

1 

2 

26.6 

27.2 

15.4 

15.5 

21 

4 

7 

28.4 

28.2 

15.3 

15.1 

14.7 

fluid-loaded  (fully  submerged)  resonances  of  the  shell  using  both  models. 

The  added  mass  effects  were  computed  for  the  conical  shell  and  QUAD4  models 
using,  respectively,  the  finite  element  and  boundary  element  techniques 
described  above. 

The  last  column  of  the  table  lists  approximate  theoretical  predictions 
for  the  fluid-loaded  resonances.  These  values  are  computed  in  the  following 
way.  In  general,  since  frequency  is  inversely  proportional  to  the  square 
root  of  mass,  the  ratio  of  submerged  to  in-vacuo  resonant  frequencies  for  a 
structure  is 


^wet'  ^dry 


(1  +  Ma/M)-1/2, 


(19) 


where  Ma  and  M  are  the  added  mass  and  structural  mass,  respectively.  For 
both  plates  and  cylindrical  shells,  this  ratio  of  added  to  structural  mass 
can  be  written  in  the  form^,14 
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Ma/M  =  a(p/ps)(a/h), 


(20) 


where  a  is  a  dimensionless  parameter  which  depends  on  the  boundary  conditions, 
modal  wavenumbers,  and,  for  the  case  of  a  cylinder,  the  length-to-radius 
ratio.  For  a  finite  length,  simply  supported  cylindrical  shell,  a  can  be 
approximated  for  the  lobar  (n  >  1)  modes  as *3 


a  =  n2/((n2  +  l)(n^  +  (nma  /L)2)L/2). 


(21) 


For  a  clamped  circular  plate, ^  a  =  0.6689  for  the  (0,1)  mode  and  0.3087  for 
the  (1,1)  mode,  where  the  two  mode  numbers  denote,  respectively,  the  number 
of  nodal  diameters  and  the  number  of  nodal  circles  plus  one.  Since  the 
conditions  under  which  these  relations  apply  are  approximately  satisfied  with 
our  example,  we  include  their  predictions  in  the  table  for  reference.  The 
ratio,  Eq.  19,  is  applied  in  the  table  to  the  average  of  the  two  in-vacuo 
predictions. 

As  indicated  in  the  table,  most  of  these  21  modes  are  either 
predominantly  shell  modes  or  predominantly  end  plate  modes.  For  one  mode 
(16),  the  shell  and  end  plate  are  both  active  participants  in  the  modal 
behavior  (although  with  varying  levels  of  relative  participation,  depending 
on  the  model  and  whether  there  was  fluid  loading). 

The  results  in  the  table  show  generally  very  good  agreement  between  the 
predictions  of  the  two  approaches,  both  in-vacuo  and  fluid-loaded,  even  for 
circumferential  harmonics  4  and  5.  For  these  two  harmonics,  the  QUAD4  mesh 
has  only  six  and  4.8  elements  per  wavelength  in  the  circumferential  direction, 
respectively,  but  still  does  surprisingly  well.  The  two  numerical  approaches 
show  agreement  to  within  about  2%  for  all  the  fluid-loaded  modes  which  exhibit 
predominantly  shell  behavior.  The  two  fluid-loaded  predictions  for  the  end 
plate  modes  all  agree  to  within  about  4%,  with  the  exception  of  Mode  4,  the 
fundamental  drum  head  mode  of  the  plate,  where  the  difference  is  about  12%. 

In  view  of  the  similarity  of  the  boundary  element  prediction  to  the 
approximate  theoretical  prediction,  the  boundary  element  result  is  probably 
the  better  of  the  two  numerical  predictions,  perhaps  indicating  that  the 
finite  element  mesh  used  (Fig.  2)  needs  to  be  extended  a  little  farther  out 
at  the  end  of  the  structure. 


DISCUSSION 

From  the  results  presented  in  the  preceding  section,  we  conclude  that 
both  the  finite  element  and  boundary  element  procedures  are  capable  of 
computing  accurate  added  mass  effects  due  to  fluid  loading  on  fully  submerged 
structures.  Of  the  two  approaches,  the  boundary  element  procedure  is  the 
easier  to  use,  since  it  is  highly  automated  and  does  not  require  the 
generation  of  a  fluid  mesh.  Even  general  purpose  automatic  mesh  generators 
cannot  completely  solve  the  fluid  meshing  issue,  since  they  cannot  generate 
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the  fluid-structure  interface  condition,  which  requires  direct  matrix  input 
of  surface  areas.  On  the  other  hand,  the  finite  element  procedure  is  somewhat 
more  general,  since  it  can  also  treat  structures  which  are  near  a  free  surface 
(or  other  boundary)  or  are  partially  submerged. 5  The  boundary  element 
procedure  used  is  applicable  only  to  deeply  submerged  structures  (i.e., 
structures  far  enough  from  a  fluid  boundary  so  that  the  boundary  can  be 
ignored). 

For  structures  similar  to  the  cylindrical  shell  considered  here,  the 
finite  element  procedure  is  also  computationally  less  expensive  than  the 
boundary  element  procedure.  This  difference  is  due  primarily  to  the 
exploitation  by  the  finite  eminent  method  of  the  banded  matrices  which  occur 
with  long,  slender  structures.  Consider,  for  example,  the  QUAD4  model  of  the 
cylindrical  shell  shown  in  Fig.  3.  The  in-vacuo  model  had  2093  independent 
DOF  with  an  average  matrix  wavefront  of  79.  When  the  (boundary  element) 
added  mass  matrix  was  combined  with  the  structural  mass  matrix,  the  average 
wavefront  increased  about  five-fold  to  394.  With  the  eigensolution  time 
proportional  to  the  product  of  the  order  of  the  matrix  and  the  square  of  the 
wavefront,  the  solution  time  for  the  submerged  case  increases  by  a  factor  of 
about  25.  On  the  other  hand,  a  finite  element  model  of  a  portion  of  the 
surrounding  fluid  would  typically  double  both  the  matrix  order  and  the  matrix 
wavefront  (compared  to  the  in-vacuo  case)  since  each  structural  grid  point 
(with  six  DOF)  would  require  about  six  fluid  grid  points  (each  with  one  DOF) 
to  be  added  to  the  model.  Such  a  model  would  therefore  cost  only  about  eight 
times  as  much  to  run  as  the  "dry"  model.  The  trade-off  between  the  finite 
element  and  boundary  element  procedures  for  solving  the  underwater  vibration 
problem  thus  reduces  to  a  trade-off  of  engineering  time  with  computer  time. 

It  is  concluded  therefore  that  both  the  finite  element  and  boundary 
element  procedures  are  capable  of  computing  the  fluid  loading  effects  needed 
for  underwater  resonance  calculations  and  that  the  more  elegant  boundary 
element  approach  is  easier  to  use  but  may  be  more  expensive  computationally. 
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ABSTRACT 

The  identification  of  power  flow  paths  in  dynamically 
loaded  structures  is  an  important,  but  currently  unavailable, 
capability  for  the  finite  element  analyst.  For  this  reason, 
methods  for  calculating  power  flows  and  mechanical 
intensities  in  finite  element  models  are  developed  here. 
Formulations  for  calculating  input  and  output  powers,  power 
flows,  mechanical  intensities,  and  power  dissipations  for 
beam,  plate,  and  solid  element  types  are  derived.  NASTRAN 
is  used  to  calculate  the  required  velocity,  force,  and  stress 
results  of  an  analysis,  which  a  post-processor  then  uses  to 
calculate  power  flow  quantities.  The  SDRC  I-deas  Supertab 
module  is  used  to  view  the  final  results.  Test  models  include 
a  simple  truss  and  a  beam-stiffened  cantilever  plate.  Both  test 
cases  showed  reasonable  power  flow  fields  over  low  to 
medium  frequencies,  with  accurate  power  balances.  Future 
work  will  include  testing  with  more  complex  models, 
developing  an  interactive  graphics  program  to  view  easily  and 
efficiently  the  analysis  results,  applying  shape  optimization 
methods  to  the  problem  with  power  flow  variables  as  design 
constraints,  and  adding  the  power  flow  capability  to 
NASTRAN. 


INTRODUCTION 

Structure-borne  sound  is  the  vibrational  energy  which  travels  through 
dynamically  loaded  mechanical  systems.  This  vibrational  energy  is  radiated 
eventually  into  an  acoustic  medium  as  noise.  An  example  cited  by  Wohlever 
and  Bernhard1  is  an  airplane  wing  loaded  by  engine  vibrations.  The  vibrational 
energy  travels  along  the  wing  to  the  fuselage  and  is  radiated  as  sound  into  the 
cabin.  Architects  face  the  problem  of  structure-borne  sound  in  hotels  and 
apartment  buildings,  where  vibrational  energy  flows  through  walls  and  floors, 
and  is  radiated  as  sound  into  other  rooms.  This  problem  is  addressed  by 
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Luzzato  and  Ortola.2 

Dynamic  analyses  are  performed  to  solve  these  problems,  which  output 
exorbitant  amounts  of  data.  The  analyst  is  then  faced  with  the  problem  of 
interpreting  the  output.  Tabular  printouts  can  be  analyzed,  spectrum  plots 
generated,  and  deformed  shapes  plotted,  all  of  which  are  useful  methods  of 
defining  the  state  of  a  structure.  Another  way  of  quantifying  the  propagation 
of  structure-borne  sound  is  the  calculation  of  power  flows.  This  method  will 
identify  the  magnitude  and  direction  of  the  power  at  any  location  in  a 
structure,  helping  an  analyst  to  find  the  dominant  paths  of  energy  flow  and  the 
energy  sinks  for  a  given  problem.  The  understanding  of  the  paths  of  energy 
which  flow  from  a  vibration  source  (such  as  the  engine  in  the  aircraft  example) 
to  certain  parts  of  a  structure  (the  cabin  for  example)  would  help  an  engineer 
to  more  easily  pinpoint  and  correct  vibration  problems. 

The  important  terms  used  in  this  study  are:  power  flow,  which  is 
actually  power,  or  energy  flow,  but  is  termed  power  flow  by  the  scientific 
community  of  this  field;  mechanical  intensity,  which  is  power  flow  per  unit 
area;  and  power  dissipation,  which  is  the  time  rate  of  energy  dissipated  in  a 
structure.  Four  main  methods  for  identifying  dominant  power  sources  and 
power  flow  paths  are  addressed  in  the  literature:  experimental  methods, 
statistical  energy  analysis,  the  finite  element  method,  and  the  power  flow 
method. 

Experimental  solutions  arc  the  most  common  in  the  literature.  The 
authors  of  some  of  these  papers-’-7  use  multiple  transducers  and  digital  signal 
processing  techniques  to  solve  various  power  flow  problems.  A  common 
method  is  the  calculation  of  cross  spectral  densities,  where  two  accelerometers 
are  placed  a  known  distance  apart  on  a  structure,  and  response  spectra  are 
generated  for  the  two  measurement  locations.  The  correlation  between  the 
spectra  is  statistically  analyzed,  and  power  flows  are  computed  over  some 
range  of  frequencies.  This  approach  is  similar  to  the  two-microphone 
technique  used  by  acousticians  to  solve  noise  propagation  problems  in  fluid 
media.  Once  an  experimental  apparatus  is  set  up,  the  analyst  may  easily  vary 
applied  loads  and  loading  frequencies.  Unfortunately,  accuracy  problems  may 
occur  due  to  the  added  weights  and  inertias  of  the  transducers  attached  to  an 
experimental  structure. 

Statistical  energy  analysis  (SEA)  is  a  computational  method  used  to 
solve  energy  flow  problems  in  the  high  frequency  domain.  A  definitive 
reference  on  SEA,  although  now  out  of  print,  is  the  text  by  R.L.  Lyon.8  A 
brief  summary  of  SEA  follows.  Large  structures  are  split  into  smaller 
subsystems;  a  modal  density  is  estimated  for  each  subsystem  so  the  number  of 
modes  in  a  given  frequency  band  can  be  determined;  dissipation  loss  factors, 
which  relate  energy  stored  to  power  dissipated,  arc  estimated  for  the 
subsystems;  and  coupling  loss  factors,  which  relate  differences  of  modal 
energy  of  subsystems  to  power  flow,  arc  assigned  to  the  junctions  of  the 
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subsystems.  The  energy  distribution,  power  flows,  and  power  dissipations  are 
then  computed. 

SEA  is  a  reasonable  way  of  solving  for  the  average  response  of 
structures  at  high  frequencies;  however  all  spatial  variations  of  the  power  flow 
field  in  the  substructures  remain  unknown.  A  more  discrete  method  must  be 
used  to  identify  specific  power  flow  paths  through  a  structure.  Finite  element 
analysis  (FEA)  may  be  used  for  this  purpose,  but  is  only  cost  effective  for  low 
to  mid-range  frequencies,  since  higher  mode  shapes  are  more  complex, 
wavelengths  are  shorter,  and  denser  finite  element  meshes  are  required  to 
model  a  problem  correctly.  Mickol  and  Bernhard9  succesfully  used  FEA  to 
identify  power  flow  paths  in  simple  beam  and  plate  structures  excited  at  low 
frequencies. 

Recently,  some  scientists  have  proposed  a  r.ew  method  to  solve  for 
power  Hows  in  the  middle  frequency  range.  Cuschieri,10  Nefske  and  Sung,11 
and  Wohlever  and  Bernhard1  have  been  studying  this  new  approach:  a  finite 
element  analogy  where  input  power  is  substituted  for  input  force  and  the 
power  flow  field  may  be  solved  for  directly  using  a  finite  element  solution. 

In  this  paper  FEA  is  used  to  solve  the  power  flow  problem.  For  lower 
modes  the  method  is  accurate,  models  are  simple  to  build  and  modify  using 
modern  modeling  software,  and  analysis  results  are  viewed  easily  using  post¬ 
processing  graphics  packages.  Since  no  commercial  software  contains  a  power 
How  capability,  the  formulations  and  computer  methods  are  developed  here 
for  NASTRAN.12  The  FEA  studies  presented  in  the  literature  consider  only 
the  contribution  of  flexural  wave  motion  to  power  flow.  Other  motion  types  of 
power  flow,  such  as  axial  and  torsional,  are  ignored.  In  this  study,  all  types  of 
power  flow  are  considered. 

First,  general  methods  and  formulations  for  power  flows  and 
mechanical  intensities,  power  dissipations,  input  powers,  and  output  powers 
are  developed  for  global  models,  beam  elements,  plate  elements,  solid 
elements,  and  scalar  elements.  The  required  NASTRAN  solution,  the 
algorithm  of  the  power  flow  processor,  and  the  use  of  I-deas  Supertab  are 
outlined.  Two  test  models  are  analyzed  to  verify  the  methods:  a  simple  truss 
and  a  beam-stiffened  cantilever  plate.  Finally,  based  on  the  results  of  the  test 
case  analyses,  conclusions  about  the  method  are  formed  and  some  thoughts 
about  future  directions  for  work  are  discussed. 

THE  FINITE  ELEMENT  SOLUTION 


General  Methods 

A  typical  power  llow  cycle  is  shown  in  Fig.  1.  The  figure  shows  an 
arbitrary  structure  mounted  to  a  connecting  structure  by  a  spring  and  damper 
coupling.  A  dynamic  load  is  applied,  and  energy  flows  into  the  structure  at  the 
load  point.  The  input  power  then  flows  through  the  structure  along  multiple 
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Fig.  1.  Sample  Power  Flow  Diagram. 


flow  paths  denoted  by  arrows,  whose  lengths  represent  power  flow  magnitudes. 
As  the  energy  flows  toward  the  mounting,  it  is  dissipated  by  material  damping 
and  sound  radiation  into  a  surrounding  medium,  and  the  flow  arrows  shorten. 
The  flow  and  dissipation  processes  continue  until  the  remaining  energy  exits 
the  structure  through  the  mounting  and  flows  into  the  connecting  structure. 
Though  only  one  power  entry  and  exit  point  is  shown  in  this  drawing,  multiple 
loads  and  mountings  may  exist.  A  classic  text  which  describes  the  flow  of 
structure-borne  sound  is  the  book  by  Cremer,  Heckl,  and  Ungar.13 

The  power  flow  problem  may  be  solved  using  NASTRAN.  The 
structure  may  be  modeled  using  various  element  types;  mountings  arc  modeled 
using  scalar  spring,  damping,  and  mass  elements;  and  constraints  and  loads 
are  directly  applied.  The  steady-state  response  for  the  model  is  solved  for  a 
given  excitation  frequency,  and  the  power  flow  variables  are  calculated. 

Power  Flow  and  Mechanical  Intensity 

To  calculate  power  input,  power  flow,  or  power  output  at  some  location 
in  a  given  direction,  the  force  in  that  direction  is  multiplied  by  the  in-phase 
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part  of  the  velocity  in  that  direction.  For  example,  a  bending  moment  about 
the  x  direction  is  multiplied  by  the  in-phase  part  of  the  angular  velocity  about 
the  x  direction.  The  power  llow  at  that  degree  of  freedom  is  the  real  part  of 
that  result.  This  calculation  may  be  visualized  as  taking  the  dot  product  of  the 
force  and  velocity  phasors  to  solve  for  the  real  part  of  power. 

Multiplying  one  complex  number  by  the  in-phase  part  of  another 
complex  number  is  the  same  operation  as  multiplying  the  first  number  by  the 
complex  conjugate  of  the  other  number.  Therefore  a  general  formula  for 
power  llow  in  a  structure  is 

Power  =  Fv* .  (1) 

Power  flow  is  a  complex  number.  The  real  part  of  the  calculation  is  called  the 
active  power,  and  the  imaginary  part  is  called  the  reactive  power.  The  active 
power  is  the  quantity  of  interest  here. 

Mechanical  intensity  is  power  llow  per  unit  area,  or  the  stress  multiplied 
by  the  complex  conjugate  of  velocity.  Mechanical  intensity  is  similar  to 
acoustic  intensity,  which  is  the  pressure  in  a  fluid  medium  multiplied  by  the 
complex  conjugate  of  velocity. 

Damping  and  Power  Dissipation 

Power  may  be  dissipated  in  different  ways:  by  material  damping,  by 
mountings  and  surrounding  structures,  and  by  radiation  as  sound.  This  section 
discusses  the  power  dissipation  due  to  damping.  At  this  time  only  material 
damping  is  considered  in  the  dissipation  process.  The  effects  of  sound 
radiation  will  be  considered  in  the  future. 

Power  dissipation  is  calculated  differently  from  power  flow  and  power 
input.  Since  power  dissipation  is  the  rale  o  energy  dissipation,  the  energy 
level  of  a  given  clement  is  calculated  and  multiplied  by  its  damping  coefficient. 
Multiplying  the  energy  dissipation  by  the  angular  frequency  of  excitation  gives 
the  power  dissipated  in  that  element. 

The  effects  of  the  material  damping  coefficient  are  significant.  As  the 
damping  coefficient  is  increased,  the  power  dissipated  will  increase.  If  the 
damping  coefficient  is  zero,  no  scalar  damping  elements  are  applied  to  the 
structure,  and  no  sound  radiation  is  considered,  power  dissipation  will  be  zero 
and  no  power  llow  will  exist.  This  is  because,  with  no  damping,  forces  and 
velocities  will  be  exactly  90  degrees  out  of  phase,  and  the  in-phase  part  of 
velocity  is  zero.  Though  this  is  a  physically  unrealistic  situation,  it  is  one  that 
may  occur  in  a  finite  element  analysis. 

To  solve  for  power  dissipation,  energy  dissipate .  must  first  be 
calculated.  The  energy  level  in  an  clement  is  the  sum  of  the  element’s  kinetic 
energy  and  potential  energy.  Since  this  is  a  steady-staie  problem,  and  the 
energy  is  a  time-averaged  quantity,  it  may  be  calculated  as  twice  the  kinetic 
energy: 
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E  =  mvv* , 


(2) 


where 

E  =  energy, 
m  =  element  mass,  and 
v  =  velocity. 

Powei  dissipation  is  then  calculated  as 

Pdiss  =  2.rl'//E,  (3) 

where 

f  =  rotational  frequency,  and 
i)  —  material  damping  coefficient 

The  q E  term  is  the  energy  dissipation,  and  multiplying  by  the  angular 
frequency  gives  the  energy  dissipation  per  unit  time,  or  power  dissipation.  The 
result  will  be  a  real  number,  since  the  energy  calculation  multiplies  velocity  by 
its  complex  conjugate. 

The  calculation  of  power  dissipation  includes  the  element  mass,  so  the 
calculation  is  mesh  dependent.  As  mesh  density  increases,  element  power 
dissipations  decrease.  For  example,  if  a  beam  element  were  subdivided  into 
two  beam  elements,  the  original  power  dissipation  would  be  split  between  the 
two  new  beams.  A  way  to  make  the  power  dissipation  calculations  meoh- 
independent  would  be  to  divide  the  results  1-  icir  respective  element  masses. 
At  this  point,  however,  the  actual  power  dissipations  are  calculated  because  of 
their  importance  in  checking  power  balances  <see  the  Power  Balance  section 
below). 

Also,  power  dissipation  is  directly  related  to  the  mode  shapes  of  an 
analysis,  so  areas  oi  large  displacements  and  velocities  will  be  large  energy 
sinks,  and  nodes  (points  of  near  zero  displacement)  will  dissipate  almost  no 
power. 

Power  Input 

Power  inputs  are  calculated  by  multiplying  input  forces  by  the  complex 
conjugates  of  their  corresponding  velocities.  Total  input  power  is  calculated  as 

Pin  =  Real  [SFiV-],  (4) 

i=l 

w'hcre 


i  =  load  point,  and 
n  =  number  of  loads. 

This  is  a  global  calculation  which  is  independent  of  element  type. 
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At  this  time  only  force  inputs  are  considered.  Ollier  load  types  may 
input  power  to  a  structure,  such  as  displacements,  velocities,  and 
accelerations.  The  calculation  of  input  powers  for  these  load  types  will  be 
derived  in  a  subsequent  paper. 

Power  Output 

Power  output  is  the  power  that  leaves  the  system  through  its  mountings 
and  enters  the  connecting  system(s).  The  external  system  is  modeled  using 
spring,  damper,  and  mass  elements.  These  scalar  elements  must  be  connected 
to  additional  grid  points  which  are  grounded.  The  forces  of  constraint  are 
combined  with  the  velocities  of  the  grid  attached  to  the  scalar  element  to 
calculate  power  output.  The  power  output  is  calculated  as 

P0ut  =  Real  [EFivH,  (5) 

i=l 

where 


i  =  grounded  grid,  and 
n  =  number  of  grounded  grids. 

Power  Balance 

The  terms  described  above  (power  input,  power  dissipation,  and  power 
output)  are  all  used  to  verify  a  power  balance  for  a  given  problem.  The  power 
balance  equation  is 

#clcn) 

Pm  =  £  Pdiss+Pom.  (6) 

i=l 

This  is  the  same  equation  used  in  SEA  theory.  Since  Pin,  PolU,  and  P()jSS  are 
all  calculated  independently,  if  the  power  balance  equation  holds,  then  the 
power  flow  solution  is  correct  (assuming  the  original  finite  element  solution  is 
accurate).  This  power  equilibrium  equation  is  therefore  an  important  check 
on  the  power  formulations  and  calculations. 

Element  Formulations 

Beam  Elements 

Most  of  the  literature  in  the  field  of  power  flow  is  devoted  to  beams. 
The  landmark  paper  by  Noiseux1*1  described  methods  of  measuring  the  flexural 
power  How  in  beams.  Many  other  authors,  such  as  Verheij,15  Li,16  Wohlever 
and  Bernhard,1  and  Nefskc  and  Sung11  have  developed  power  flow  capabilities 
for  beam  elements. 

Ah  the  methods  developed,  however,  consider  only  flexural  power  flow. 
Though  flexure  is  arguably  the  dominant  response  in  a  beam,  cases  arise  whore 
axial  and  torsional  response  are  important.  For  this  reason,  all  possible 
components  of  power  flow  will  be  considered. 
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Power  flow  methods  for  BAR  clement  types  are  derived  below.  Either 
lumped  mass  or  coupled  mass  solutions  may  be  used.  Unfortunately,  torsional 
inertia  for  the  BAR  element  type  is  no'  calculated  by  NASTRAN. 
Concentrated  mass  elements  with  beam  torsional  inertias  entered  as  masses 
must  be  added  to  the  model  at  the  appropriate  degrees  of  freedom  (DOF)  to 
solve  for  accurate  torsional  power  flows. 

Power  Flow  and  Mechanical  Intensity.  A  diagram  of  the  BAR  element 
and  its  force  output  conventions  is  shown  in  Fig.  2. 


V2 


A  / 

M2b 

. 

Plane  2 


V2 


Fig.  2.  The  BAR  Element 

Since  a  beam  is  a  one-dimensional  element,  energy  flows  in  only  one  direction: 
in  the  local  x  direction,  or  along  the  length  of  the  beam.  The  total  power  flow 
for  a  beam  elemei'.t  is 

Px  =  Real  [  —  (I7xvx  +V i  Vy  +V2  vz  +Twx  — M2 +M  i  wz )] ,  (7) 

where 

Fx  =  axial  force, 

Vj  =  shear  force  in  y  direction, 

V2  =  shear  force  in  z  direction. 
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The  negative  sign  in  front  of  the  result  is  due  to  force  and  displacement 
direction  conventions  for  the  element.  Negative  signs  appear  in  the 
formulations  for  the  plate  and  solid  elements  for  the  same  reason.  The 
negative  sign  in  front  of  the  M2  term  is  due  to  the  NASTRAN  force  output 
convention.  In  Fig.  2,  M2  is  shown  as  positive  in  the  opposite  sense  to  ojy. 
Therefore,  M2Wy  is  opposite  in  sign  to  the  other  power  flow  components. 

Velocities  are  calculated  by  NASTRAN  for  each  grid  point,  and  beam 
forces  arc  calculated  on  an  element  level.  This  difference  creates  a  problem, 
because  some  way  of  solving  for  a  power  flow  on  an  element  level  is  required. 
The  solution  is  to  solve  for  a  power  flow  at  each  grid  point,  and  calculate  the 
average  quantity  for  an  element. 

Shear,  axial,  and  torsional  forces  are  constant  through  the  clement,  and 
arc  the  same  for  each  grid  point.  Bending  moments  arc  calculated  at  each  end 
of  the  beam  element.  Velocities  are  solved  for  at  a  global  level,  and  a 
coordinate  system  transformation  must  be  performed  to  find  the  velocities  at 
the  element  level.  Since  the  grid  coordinates  and  beam  orientation  vector  are 
given,  the  velocity  transformation  is  straightforward.  After  power  Hows  at 
each  element  end  are  calculated,  they  are  averaged  to  give  an  element  power 
How.  Tower  Hows  are  then  transformed  back  to  NASTRAN’s  basic 
coordinate  system. 

Mechanical  intensity  is  power  How  per  unit  area,  and  since  all  the  power 
How  in  a  beam  is  along  the  local  x  axis,  intensity  is  simply  the  total  power  How 
divided  by  the  beam’s  cross  sectional  area. 

Two  important  observations  may  be  made  about  power  How  in  beam 
elements.  Since  power  flow  is  one-dimenf'onal  in  beams,  it  is  independent  of 
mesh  variations.  Increasing  mesh  density  or  varying  the  mesh  pattern  will  not 
affect  greatly  the  power  How  results  (assuming  the  mesh  is  dense  enough  to 
model  accurately  the  mode  shapes  of  the  solution).  Also,  since  power  How  is 
vlepcndcnt  on  clement  force  quantities  that  arc  discontinuous  across  clement 
boundaries  (axial  and  shear  forces,  torsion),  the  power  How  and  mechanical 
intensity  quantities  are  not  continuous  across  beam  element  boundaries. 

Power  Dissipation.  The  energy  of  a  beam  element  includes  both 
translational  and  rotatory  terms,  and  is  calculated  as 

E  =  m(vxv’+VyVy+vzv*)  +  I  MX  d-Iyy  y  uy  +1  zz  <A. ,  (8) 

where 

m  —  clement  mass, 


=  torsion  about  x, 

=  bending  moment  about  y, 

=  bending  moment  about  z, 

=  translational  velocities  in  direction  i,  and 
=  rotational  velocities  about  axis  i. 
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Iyy ,lzz  =  mass  moments  of  inertia  about  cross  section, 

Ixx  =  polar  mass  moment  of  inertia  about  beam  axis, 

Vj  =  local  translational  velocities  in  direction  i,  and 
oj\  =  local  rotational  velocities  about  axis  i. 

For  a  lumped  mass  formulation,  the  energy  terms  are  calculated  at  the  element 
centroid;  for  a  coupled  mass  formulation,  they  are  calculated  at  the  beam  ends 
and  averaged.  The  element  energy  is  then  multiplied  by  2i n?t,  as  in  Eq.  3,  to 
yield  power  dissipation. 

The  rotational  inertial  energies  are  generally  small.  However,  if  the 
beam  lengths  are  long  with  respect  to  the  cross  section,  the  mass  moments  of 
inertia  become  important.  In  the  case  of  torsion,  where  the  only  large 
displacement  is  rotation  about  the  beam’s  axis,  the  polar  mass  moment  of 
inertia  term  dominates  the  energy  calculation. 

Plate  Elements 

Since  the  beam  element  formulation  included  all  components  of  power 
flow,  power  flow  capabilities  for  QUAD  elements  (QUAD2  and  QUAD4), 
which  consider  both  flexural  and  membrane  effects,  are  developed. 

The  literature  concerning  plate  elements  is  growing,  and  publications  by 
Mickol  and  Bernhard,1  Williams  et  al, 17  Koshiroi  and  Tateishi,18  Noiseux,lj 
Fahy  and  Pierri,19  and  Cuschieri,20  investigate  mechanical  intensities  and 
power  Hows  through  plate  structures.  Similar  to  the  literature  for  beams 
however,  most  approaches  consider  only  flexural  effects. 

Power  Flow  and  Mechanical  Intensity.  A  diagram  of  a  QUAD  element 
and  its  force  and  stress  output  conventions  is  shown  in  Fig.  3.  The 
quadrilateral  clement  is  two-dimensional,  and  power  may  flow  in  the  local  x 
and  y  directions.  The  power  flow  in  the  x  direction  is  calculated  as 

Px  =  Real  [  —  (VXV2— MxwJ+Mxywx+Fxvx+Fxyvy)];  (9) 

the  power  How  in  the  y  direction  is 

Py  —  Real  [  (VyVz-}-Myk\(  cjy iT'y Vy -}-FyX vQ] , 

where 

Vx  Vy  =  transverse  shear  forces, 

MXjMy  =  bending  moments, 

Mxy  =  twisting  moment, 

FX)Fy  =  membrane  forces, 

F.xy, Fyx  =  membrane  shear, 

v;  =  local  translational  velocities  in  direction  i,  and 
(jj\  —  local  rotational  velocities  about  axis  i. 
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Fig.  3.  The  QUAD  Element 

NASTRAN  force  output  convention.  These  bending  moments  are  opposite  in 
sense  to  their  corresponding  rotational  velocities. 

As  in  the  case  of  the  beam  elements,  grid  velocities  must  be 
transformed  to  the  local  element  coordinate  systems  to  be  used  in  the  power 
flow  calculations.  After  the  calculations,  the  power  flow  vectors  are 
transformed  back  to  NASTRAN’s  basic  coordinate  system. 

The  above  formulation  should  work  for  the  QUAD2  and  QUAD4 
clement  types.  Unfortunately,  the  QUAD4  has  not  been  fully  implemented 
for  complex  analysis  yet,  so  only  the  QUAD2  may  be  used.  This  is 
unfortunate,  since  the  QUAD2  is  not  an  isoparametric  element,  and  its 
membrane  performance  is  poor.  In  fact,  NASTRAN  does  not  calculate 
membrane  forces  for  the  QUAD2,  so  they  must  be  deduced  from  the 
membrane  stress  outputs. 

Calculating  membrane  forces  involves  approximating  the  element’s  local 
dx  and  dy  lengths,  which  combined  with  the  plate  thickness  will  give  dA  values 
in  the  local  x  and  y  directions.  Multiplying  these  "side  areas”  by  the  stresses 
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will  give  approximations  for  the  membrane  forces.  All  this  additional 
calculation  introduces  more  error  into  a  membrane  formulation  which  is 
already  poor.  If  an  element  is  greatly  distorted,  the  membrane  results  could 
be  completely  incorrect. 

Finite  clement  meshes  for  the  QUAD2  must  be  therefore  as  uniform  as 
possible,  since  the  element  is  not  isoparametric.  Also,  if  membrane  effects 
are  dominant  in  an  analysis,  the  results  will  be  suspect.  When  the  NASTRAN 
implementation  of  the  QUAD4  is  complete,  the  QUAD4  element  will  be  used. 

The  mesh  dependence  of  power  flow  for  QUAD  elements  has  not  yet 
been  determined. 

To  calculate  mechanical  intensities,  Px  and  Py  are  divided  by  the 
estimated  side  areas. 

Power  Dissipation.  The  energy  of  a  QUAD  clement,  considering  only 
scalar  mass  terms,  is 

E  =  m(vxv*+vyvy+vzv*),  (10) 

where 


m  =  element  mass,  and 

v;  =  local  translational  velocities  in  direction  i. 

Element  energies  are  multiplied  by  ryf  to  calculate  power  dissipations.  Power 
dissipation  terms  are  calculated  at  each  grid  point  and  averaged  to  solve  for 
the  element  dissipation.  This  calculation  is  mesh-dependent,  since  power 
dissipation  is  directly  related  to  element  mass. 

Solid  Elements 

Since  literature  in  the  power  flow  field  is  largely  from  the  experimental 
sector,  solid  elements  are  generally  not  considered.  An  experimentalist 
cannot  place  a  measuring  device  inside  the  material  of  a  solid  structure.  The 
paper  by  Pavic,7  however,  describes  a  method  for  measuring  structural  surface 
intensity.  His  method,  which  involves  placing  transducers  on  various  surfaces 
of  a  machinery  system  to  measure  two-dimensional  mechanical  intensities,  may 
be  extended  to  three  dimensions.  Since  a  finite  element  code  has  no 
restrictions  on  making  "measurements"  internal  to  a  structure,  mechanical 
intensities  may  be  calculated  throughout  a  solid  model. 

Power  Flow  and  Mechanical  Intensity.  For  the  BAR  and  QUAD 
elements,  force  output  is  given  by  NASTRAN.  For  solid  elements,  stress 
output  is  given  at  grid  points  and  at  the  element  centroid.  Pavic7  uses  stresses 
and  velocities  in  his  formulation  of  structural  surface  intensities.  His  formulas 
for  mechanical  intensities,  extended  to  three  dimensions,  arc 
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I*  =  Real  [  -  (CxVx+tyVy+TjaV*)], 

Iy  =  Real  [  -  (<7yvy+ryxvx+7yzvz)]} 

Iz  =  Real  [  (az vz  -|-"zx  vx  -l-"zy vy  ^  ] , 

where 

Ix,Iy,Iz  =  global  mechanical  intensities, 

(jx,Gy,a.£  =  normal  stresses, 
rxy,7yZ,rxz  =  shear  stresses,  and 

vj  =  global  translational  velocities  in  direction  i. 

Since  element  stresses  are  given  in  the  basic  coordinate  system,  the  velocities 
do  not  ha\c  to  be  transformed  to  element  coordinate  systems  as  they  were  for 
the  BAR  and  QUAD  clement  types.  Calculations  are  made  at  each  grid  point 
and  averaged  to  calculate  the  clement  mechanical  intensity. 

At  this  point,  no  attempt  is  made  to  compute  power  flows  using  the 
mechanical  intensity  results.  Although  the  intensity  vector  is  defined,  the 
problem  of  finding  element  face  areas  in  the  x,  y,  and  v.  directions  remains. 

This  formulation  is  valid  for  any  solid  element  in  NASTRAN,  including 
the  linear,  parabolic,  and  cubic  isoparametric  solid  elements.  Unfortunately, 
the  complex  stress  output  for  each  of  these  element  types  is  incorrect.  The 
stress  results  in  the  OESC1  data  block  are  wrong,  and  when  they  are  passed  to 
the  output  file  processor  (OFP)  module,  errors  result  in  the  output  file.  These 
errors  appear  to  be  related  to  data  types,  since  asterisks  appear  in  the  grid 
point  field  of  the  NASTRAN  output  file. 

The  errors  associated  with  the  isoparametric  elements  restricts  the 
usable  clement  types  to  the  HEXA2,  which  is  a  superposition  of  ten 
tetrahedron  elements.  As  was  the  case  for  the  QUAD  elements,  when  the 
NASTRAN  errors  are  fixed,  the  higher  level  elements  will  be  used. 

The  mesh  dependence  of  mechanical  intensity  for  solid  elements  has 
not  yet  been  determined. 

Power  Dissipation.  The  power  dissipation  calculations  are  the  same  as 
those  for  the  QUAD  elements  (Eq.  10).  Only  mass  and  translational  velocity 
terms  arc  considered.  Power  dissipation  terms  are  calculated  at  each  grid 
point  and  averaged.  Again,  since  the  clement  mass  is  directly  related  to  the 
element  energy,  power  dissipation  is  mesh-dependent. 

Scalar  Elements 

Scalar  elements  may  be  used  to  simulate  mountings  and  structures 
connected  to  the  finite  element  model.  ELASi  and  MASSi  elements  may  be 
used  to  model  stiffness,  damping,  and  mass  effects.  These  elements  may  be 
important  for  certain  analyses,  such  as  when  a  structure  is  not  rigidly  mounted. 
In  certain  cases,  power  may  How  out  of  a  structure  into  an  isolator,  which  will 
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absorb  much  of  the  energy,  or  into  a  surrounding  medium.  The  accurate 
modeling  of  boundary  conditions  must  therefore  include  scalar  element  types. 

Power  Flow,  Intensity,  and  Dissipation.  Power  flows  and  power 
dissipations  arc  not  measured  in  scalar  elements,  but  the  presence  of  external 
stiffnesses,  dampers,  and  masses  may  significantly  affect  the  results  in  the 
structural  element  types. 

Computer  Methods 

A  How  chart  of  the  solution  process  is  shown  in  Fig.  4. 


Input  Deck: 
Multiple  Subcases, 
Multiple  Frequencies. 


Fig.  4.  Power  Flow  Solution  Process 


NASTRAN’s  Rigid  Format  8  (Direct  Frequency  Response)  is  used  to  solve  a 
given  problem  for  any  combination  of  load  cases  and  excitation  frequencies. 
The  model  information  and  problem  solution  output  are  written  to  a  UT1  file, 
which  is  used  as  input  to  the  McPOW  (Mechanical  POWer)  program.  After 
the  power  computations,  power  (lows,  mechanical  intensities,  and  power 
dissipations  are  written  to  two  output  files.  One  file  contains  a  tabular  listing 
of  the  power  flow  results;  the  other  file  is  formatted  as  input  to  the  I-DEAS 
Supertab21  post-processor,  which  is  used  to  interpret  visual'y  the  results. 
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NASTRAN  Solution 


Before  running  Rigid  Format  8,  an  eigenvalue  extraction  (Rigid  Format 
3)  can  be  performed  on  the  model  to  determine  the  resonant  frequencies  and 
their  corresponding  mode  shapes.  Power  flows  can  then  be  measured  at 
response  peaks,  and  the  dominant  type  of  power  flow,  such  as  flexural  or 
axial,  can  be  predicted  by  examining  the  mode  shapes. 

Several  data  blocks  must  be  written  to  the  UT1  output  file  for  the 
McPOW  progiam.  The  following  ALTER  statements  are  put  in  the  Executive 
Control  Deck: 

$ 

$  THE  FOLLOWING  STATEMENTS  CORRESPOND  TO  THE  1987,88 
$  VERSIONS  OF  COSMIC  NASTRAN,  RF8 
$ 

ALTER  23$  AFTER  THE  TA1  MODULE 

OUTPUT2  CASECC,EST,MPT,EQEXIN$ 

ALTER  135$  AFTER  THE  SDR2  MODULE 

OUTPUT2  OPPCl,OESCl,OEFCl  ,OUPVCl$ 

ENDALTERS 


In  the  above  alter,  the  CASECC  data  block  contains  case  control 
information,  the  EST  data  block  holds  element  information,  the  MPT  data 
block  contains  material  properties,  and  the  EQEXIN  data  block  holds  grid  and 
SIL  (Scalar  Index  List)  information.  The  OPPC1  data  block  contains  the 
applied  forces,  the  OESC1  data  block  lists  the  element  stresses,  the  OEFC1 
data  block  holds  element  forces,  and  the  OUPVC1  data  block  contains  grid 
point  velocities. 

To  ensure  that  all  the  required  data  are  in  the  data  blocks,  the  following 
output  requests  must  be  made  in  the  case  control  deck: 

FORCE(PI-IASE)=ALL 

STRESS(PHASE)=ALL 

VELOCITY(PIIASE)=ALL 

OLOAD(PI-IASE)=ALL 


The  capability  to  calculate  power  flows  for  sets  of  elements  will  be 
implemented  later. 

Power  Flow  Algorithm 

The  program  McPOW  is  composed  of  four  main  sections:  the  model 
information  section,  the  NASTRAN  output  section,  the  power  flow 
calculation  section,  and  the  output  section. 
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The  model  information  section  simply  reads  the  CASECC,  EST,  MPT, 
and  EQEXIN  data  blocks  from  the  UT1  file.  The  NASTRAN  output  section 
reads  the  OPPC1,  OESC1,  OEFC1,  and  OUPVC1  data  blocks  and  assigns 
forces  and  stresses  to  element  variables,  velocities  to  grid  points,  and  input 
loads  to  grid  points. 

The  power  flow  calculation  section  first  calculates  input  powers  using 
the  input  loads  and  corresponding  grid  velocities.  Next,  grid  velocities  are 
assigned  to  elements.  Power  flows,  mechanical  intensities,  and  power 
dissipations  are  then  calculated  using  element  forces,  stresses,  and  the 
velocities  of  the  element  grids. 

The  output  section  writes  power  flow  information  to  two  files.  The  first 
contains  a  tabular  listing  of  the  solution  variables  for  each  subcase  and 
frequency;  the  second  is  a  data  file  in  I-DEAS  Universal  file  format. 

Post-Processing 

The  user  may  analyze  the  power  flow  output  in  two  ways:  by  inspecting 
the  listed  output,  or  using  I-DEAS  Supertab’s  post-processor  to  draw  contour 
plots  and  arrow  plots.  Analyzing  the  tabular  output  is  a  good  way  to  check 
power  balances.  Power  input  is  equal  to  power  dissipated  plus  power  output. 
However,  to  visualize  the  entire  power  flow  solution  in  any  reasonably  complex 
geometry,  a  good  graphics  post-processor  is  required. 

Color  contour  plots  can  be  used  to  display  power  flow  magnitudes  and 
power  dissipations.  Power  flow,  however,  is  a  vector,  and  arrow  plots  are 
needed  to  display  the  direction  of  the  flow.  Other  authors,  such  as  Hcckl,22 
and  Koshiroi  and  Talcishi,18  have  used  arrow  plots  to  show  power  flows  in 
plate  structures.  An  alternative  unavailable  in  I-DEAS  Supertab  is  a 
combination  of  a  contour  and  arrow  plot,  which  would  illustrate  magnitude 
and  direction. 


TEST  CASES 

The  test  problems  illustrate  the  use  of  beam,  plate,  and  scalar  elements. 
The  QUAD4  and  solid  elements  have  not  been  tested  yet. 

Simple  Truss 

Problem  Statement 

A  diagram  of  a  simple  truss  is  shown  in  Fig.  5.  The  truss  members  are 
constructed  of  three  different  types  of  cross  sections.  The  model  was  attached 
to  ground  at  its  top  and  bottom  by  springs  and  dampers  in  all  six  DOF.  The 
scalar  elements  simulated  the  effects  of  fasteners  and  the  surrounding 
structure(s).  An  end  load  was  applied  in  all  six  DOF  over  a  range  of 
frequencies.  The  properties  of  the  two  W  type  sections  arc  given  in  civil 
engineering  handbooks. 
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Fig.  5.  Simple  Truss  Problem 


The  finite  element  model  consisted  of  74  BAR  elements,  with  each 
beam  section  having  a  different  mesh  density.  Section  1  was  modeled  with  40 
elements  of  0.25  m  length,  Section  2  consisted  of  10  elements  of  0.5  m  length, 
and  Section  3  was  made  up  of  24  elements  of  about  0.325  m  length.  For  the 
scalar  elements,  spring  constants  were  set  at  about  100  to  1000  times  the 
stiffness  of  the  members  at  the  appropriate  DOF;  and  the  damping  constant 
was  set  at  ten  times  the  material  damping  constant,  or  0.2.  This  model  is  a 
good  general  test  of  the  power  flow  methods  outlined  above,  since  it  has  a 
varying  mesh  density  and  the  three  sections  have  different  beam  properties. 

Results 

The  first  analysis  performed  on  the  model  was  an  eigenvalue  extraction 
(Rigid  Format  3).  Although  there  is  damping  in  the  model,  and  the  modes  arc 
actually  complex,  real  modes  may  be  calculated  to  estimate  the  resonances. 
The  first  50  modes  ranged  in  frequency  from  1.87  Hz  to  174  Hz,  with  the  three 
members  experiencing  different  types  of  motion  in  each  mode  (i.e.,  axial, 
flexural,  or  torsional),  showing  the  need  for  the  calculation  of  all  types  of 
power  ilows  in  beams. 
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The  end  load  was  then  applied  for  frequencies  ranging  from  1  to  100 
Hz,  with  a  resolution  of  1  Hz.  The  plot  shown  in  Fig.  6  shows  the  response  of 
section  three  at  100  Hz,  or  the  29th  mode  of  the  truss.  The  right  end  of  the 
plot  is  the  loading  point,  and  the  left  end  is  the  junction  with  Section  1  and  the 
mounting  at  the  bottom.  Both  power  flow  and  power  dissipation  are  plotted. 
Power  flow  decreases  as  it  propagates  along  the  beam  due  to  power 
dissipation.  Power  dissipation  oscillates  from  low  to  high  points, 
approximating  the  mode  shape  of  the  beam.  When  dissipation  is  large,  power 
flow  slopes  downward;  when  dissipation  is  small,  power  flow  remains  level. 


Fig.  6.  Power  Flows  and  Dissipations  for  a  Single  Frequency 


The  type  of  plot  shown  in  Fig.  6  is  an  effective  method  of  displaying  the 
power  flow  response  for  a  specific  case;  however  spectra  plots  are  required  to 
illustrate  the  responses  over  the  entire  frequency  range.  An  additional  set  of 
plots  is  shown  in  Fig.  7  and  consists  of  four  plots  showing  power  flow  at 
different  locations  on  each  of  the  truss  sections.  Section  one  is  split  into  two 
graphs:  graph  one  is  for  the  top  half  of  the  beam,  and  graph  two  is  for  the 
bottom  half. 

Power  flows  are  plotted  for  three  distances  along  each  member:  at  the 
beginning,  middle,  and  end  (d/L  =  0.0,  0.5,  and  1.0  respectively).  For  the  top 
and  bottom  halves  of  Section  1,  the  beginning  of  the  section  is  at  the  joint  with 
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Fig.  7.  Spectrum  Plots  of  Power  Flows  for  Truss  Sections 


Section  2;  for  Sections  2  and  3,  the  beginning  of  the  member  is  at  the  load 
point. 

The  expected  response  is  a  relatively  uniform  loweiing  of  each  curve  as 
power  flow  progresses  from  beginning  to  end  along  each  beam.  This  is  indeed 
the  case  for  some  frequencies.  However,  at  some  joints,  such  as  the  junction 
of  Sections  1  and  2,  and  the  junction  between  Sections  1,  3,  and  ground, 
power  flows  in  ways  that  are  less  intuitive.  As  a  result,  some  of  the  plots 
"cross  over"  each  other  and  power  ilow  increases  from  beginning  to  end.  Fig. 
8  contains  three  power  flow  diagrams  which  show  some  of  the  ways  that  power 
may  flow  through  the  truss  model  in  this  analysis. 


Fig.  8.  Power  Flow  Diagrams  for  Truss  Problem 


Diagram  1  shows  power  entering  Sections  2  and  3  at  the  load  points  and 
flowing  out  toward  Section  1.  At  the  junction  of  Sections  1  and  2,  the  power 
flows  from  Section  2  into  the  upper  half  of  Section  1.  At  the  junction  of 
Sections  i  and  3,  power  flows  from  Section  3  into  the  scalar  elements 
connected  to  ground  and  into  the  bottom  half  of  Section  1.  Power  then  flows 
from  the  bottom  of  Section  1  to  the  lop  of  Section  1,  where  it  then  flows  up  to 
the  scalar  elements  at  the  top  and  out  of  the  model. 
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Diagram  2  shows  a  similar  case,  but  with  two  differences.  At  the 
junction  of  Sections  1  and  2,  power  from  Section  2  flows  into  the  lop  and 
bottom  halves  of  Section  1;  and  at  the  junction  of  Sections  1  and  3,  power 
flows  only  into  ground. 

In  Diagram  3,  power  is  input  only  into  Section  2,  and  flows  into  the  lop 
and  bottom  halves  of  Section  1.  The  power  in  the  bottom  half  of  Section  1 
Hows  down  to  the  junction  of  Section  1,  Section  3,  and  ground,  where  some 
power  Hows  out  of  the  model  and  some  flows  up  into  Section  3. 

The  cases  shown  in  Diagrams  1  and  2  are  the  most  common  based  on 
examination  of  the  printed  output.  Other  possibilities  exist,  but  do  not  occur 
often  for  the  range  of  frequencies  analyzed.  The  type  of  power  flow  diagram 
which  occurs  for  a  given  frequency  may  be  found  by  looking  at  the  plots  in 
Fig.  7.  When  power  flow  increases  travelling  from  d/L  =  0.0  to  d/L  =  1.0, 
then  power  has  entered  the  beam  at  d/L  =  1.0.  When  power  flow  decreases 
travelling  from  d/L  =  0.0  to  d/L  =  1.0,  then  power  has  entered  the  beam  at 
d/L  =  0.0. 

Response  peaks  in  the  graphs  shown  in  Fig.  7  correspond  to  different 
types  of  motion  in  each  section.  Some  peaks  represent  flexural  motion,  some 
arc  due  to  axial  response,  and  some  are  torsional  in  nature.  A  power  flow 
algorithm  which  considers  only  flexural  response  would  give  incorrect  answers 
to  this  problem. 

Power  balances  (Pj„  =  l5out+  Tj  Pjiss)  were  reasonably  accurate  across 
the  frequency  band,  with  small  errors  at  frequencies  of  low  response.  It  is 
uncertain  which  quantities  are  in  error  (P;n,P0Ut,  or  Pj;s)  for  these  cases, 
however  the  errors  arc  of  little  consequence  with  respect  to  the  calculations  at 
higher  responses.  Power  flows  at  the  truss  joints  balanced  as  well.  A 
calculation  similar  to  Kirchoff’s  current  law  can  be  made,  with  power  flows  in 
the  BARs  connected  to  the  junctions  analagous  to  currents. 

Beam-Stiffened  Cantilever  Plate 

The  analysis  of  ribbed  stucturcs  combines  the  power  flow  methods  for 
beams  and  plates.  Nilssoir-’  used  SEA  methods  to  predict  the  transmission  of 
structure-borne  sound  through  ribbed  plate  models.  Here,  FEA  is  used  to 
calculate  the  low  frequency  response  of  a  beam  stiffened  cantilcvei  plate. 

Problem  Statement 

A  diagram  of  the  model  is  shown  in  Fig.  9.  Similar  to  the  truss  model, 
the  cantilever  plate  model  was  attached  to  ground  at  its  end  by  springs  and 
dampers  in  all  six  DOF.  The  scalar  elements  simulated  the  effects  of  fasteners 
and  ‘he  surrounding  stn.cture(s).  A  uniform  end  load  was  applied  in  the  axial, 
transverse  shear,  and  bending  directions.  A  12  x  30  mesh  of  QUAD2 
elements  was  used  to  model  the  plate  and  two  sets  of  30  BAR  elements 
modeled  the  stiffeners.  The  BAR  elements  were  offset  relative  to  the  plates. 
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Material:  Steel 

E  =  30  x  106  psi 
p  =  7.324  x  10-4  lbs/in4 
v  =0.3  =  0.02 

(Drawing  not  to  scale) 


Fig.  9.  Ream-Stiffened  Cantilever  Plate  Problem 

For  the  scalar  elements,  spring  constants  were  set  at  about  100  to  1000  times 
the  stiffness  of  the  members  at  the  appropriate  DOF;  and  the  damping 
constant  was  set  at  ten  times  the  material  damping  constant,  or  0.2. 

This  model  illustrates  the  power  flow  capability  for  plate  elements,  and 
helps  further  test  the  beam  element  formulation.  Also,  the  power  balance 
equation  is  checked  for  the  case  of  multiple  element  types  in  a  model;  the  total 
power  dissipation  in  the  beams  plus  the  total  power  dissipation  in  the  plates 
must  match  the  difference  of  power  input  and  power  output. 

Results 

An  eigenvalue  extraction  of  the  model  showed  the  first  25  natural 
frequencies  ranging  from  15  to  2,122  Hz.  Loads  were  applied  to  the  model  for 
a  freque,  /  range  of  15  to  465  Hz  with  a  resolution  of  15  IIz. 

A  plot  of  power  Hows  in  one  of  the  beam  stiffeners  over  the  frequency 
range  is  shown  in  Fig.  10.  Since  the  model  and  the  loading  function  arc 
symmetric  about  the  center  of  the  plate,  power  Hows  through  both  beam 
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Fig.  10.  Power  Flows  for  Three  Locations  Along  Beam  Stiffener 


For  a  plate  element  problem,  spectrum  plots  are  more  difficult  to 
generate  and  understand.  Graphical  (contour  and  vector)  plots  are  needed  to 
show  the  spatial  variation  of  the  power  flow  variables.  A  contour  plot  of  the 
power  flow  magnitudes  of  the  plate  and  beam  elements  is  in  Fig.  11.  The 
beam  elements  are  illustrated  as  plates  in  the  diagram  so  their  results  may  be 
visualized.  Fig.  11  shows  how  power  flows  through  the  model  at  455  Hz. 
Power  flows  into  the  model  at  the  load  points  at  the  end  of  the  plate,  where 
some  of  it  channels  down  the  beam  stiffeners,  and  the  rest  flows  through  the 
plate. 


Fig.  12  shows  a  vector  plot  of  power  flow,  which  shows  the  directions 
that  the  power  is  flowing.  The  lengths  of  the  arrows  shorten  as  power  travels 
from  load  point  to  the  mountings  at  the  end  of  the  plate.  In  this  case,  almost 
all  the  power  dissipated  is  due  to  material  damping. 
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Fig.  11.  Power  Flow  Magnitudes,  f=455  Hz. 

The  effects  of  material  damping  are  shown  in  Fig.  13,  which  is  a  plot  of 
power  dissipation.  As  mentioned  in  the  "Damping  and  Power  Dissipation" 
section  earlier,  a  power  dissipation  field  will  resemble  a  mode  shape,  since 
dissipations  are  directly  related  to  the  squares  of  the  displacements.  In  this 
case,  the  largest  power  sinks  are  outside  the  beam  stiffeners  and  toward  the 
rear  of  the  plate. 

Power  balances  are  reasonably  accurate  for  all  frequencies,  with  the 
total  power  dissipations  of  the  beam  and  plate  elements  matching  the 
differences  between  input  and  output  powers.  The  results  show  that  both 
element  types  may  be  used  accurately  in  a  single  model. 


SUMMARY  AND  FUTURE  WORK 

A  general  capability  for  the  calculation  of  power  flow  variables  (power 
flow,  mechanical  intensity,  power  dissipation,  power  input  and  power  output) 
has  been  developed  for  use  with  the  finite  elememt  code  NASTRAN.  BAR, 
QUAD2,  QUAD4,  IIEXA2,  IHEXi,  MASSi,  and  ELASi  element  types  are 
currently  supported.  Unlike  most  of  the  studies  presented  in  the  literature,  all 
types  of  power  flows,  flexural,  axial,  and  torsional,  are  considered  in  the 
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Fig.  12.  Power  Flow  Directions  (two  views),  1=455  Hz.. 
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Fig.  13.  Power  Dissipations,  f=455  Hz. 


element  formulations. 

The  results  of  the  test  problems  indicate  the  method  is  a  valid  way  of 
predicting  the  power  flow  response  of  a  dynamically  excited  system  at 
relatively  low  frequencies.  Results  for  the  test  problems  were  more  accurate 
at  resonances  than  between  resonances.  Inaccuracies  in  the  off-resonant 
responses  are  due  to  numerical  problems;  however,  errors  at  low  response  are 
not  as  critical  as  errors  at  peaks. 

Using  FEA  to  calculate  power  flows  is  accurate  and  economical  for  the 
lower  modes  of  a  mechanical  system.  However  the  power  flow  results  will 
only  be  as  good  as  the  NASTRAN  results.  Good  modeling  techniques  and  an 
understanding  of  the  wavelength  sizes  of  a  problem  are  required.  The  shorter 
the  wavelengths,  the  denser  the  required  mesh  will  be. 

Future  work  is  extensive,  and  includes  calculating  power  losses  due  to 
radiation  damping,  attaching  dampers  and  active  control  devices  to  structures 
and  measuring  their  effects,  applying  shape  optimization  techniques  to 
structures  with  power  flow  variables  as  design  constraints,  determining  the 
effects  of  mesh  dependence,  adding  the  power  flow  capability  to  NASTRAN, 
and  developing  a  more  specialized  graphical  post-processing  package. 
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FINITE  ELEMENT  ANALYSIS  OF  A  MICROMECHANICAL 


DEFORMABLE  MIRROR  DEVICE 

T.  J.  SHEERER ,  W.  E.  NELSON  AND  L.  J.  HORNBECR 
TEXAS  INSTRUMENTS  INCORPORATED ,  DALLAS  TX. 


ABSTRACT: 

Texas  Instruments  has  developed  a  monolithic  spatial  light 
modulator  chip  consisting  of  a  large  number  of 
micrometer-scale  mirror  cells  which  can  be  rotated  through  an 
angle  by  application  of  an  electrostatic  field.  The  field  is 
generated  by  electronics  inter  ~al  to  the  chip.  The  chip  has 
application  in  photoreceptor  based  non-impact  printing 
technologies.  Chips  containing  over  1600.  cells  have  been 
fabricated ,  and  have  been  tested  to  several  billions  of  cycles. 
Finite  Element  Analysis  (FEA)  of  the  device  has  been  used  to 
model  both  the  electrical  and  mechanical  characteristics . 

INTRODUCTION : 

The  very  high  component  density  achieved  in  integrated 
circuits  is  well-knovm .  Using  the  same  processing  techniques  it 
is  also  possible  to  produce  micromechanisms  on  a  similar  scale. 
Petersen  (1)  has  described  the  manufacture  and  testing  of 
extremely  small  silicon  cantilevers  and  also  lists  several 
commercial  applications  of  micromechanical  devices. 

The  deformable  mirror  device  (DMD)  consists  of  a  chip 
containing  a  large  number  of  mirror  cells  as  shown  in  Fig.  (1) . 
The  cell  consists  of  a  19um  x  19  urn  aluminum  mirror  pivoted  at 
two  corners  by  4.5  urn  beams.  The  mirror  and  its  support 
structure  are  0.375um  in  thickness  while  the  beam  is  of 
nominal  width  1.0  urn  and  nominal  thickness  0.08  urn.  2.3  urn 
below  the  structure  are  two  address  electrodes  and  two  landing 
electrodes .  To  rotate  the  mirror  through  an  angle,  ,  a  bias 
potential,  (fa,  is  applied  to  the  upper  structure  and  landing 
electrodes  while  appropriate  address  potentials  are  applied  to 
the  address  electrodes  as  shown  in  Fig. (2) .  The  cell  may  be 
used  as  an  optical  lever  to  deflect  a  light  beam  in  and  out  of 
the  field  of  a  projection  lens  as  shown  in  Fig.  (3) .  The  effect 
is  thus  of  being  able  to  activate  and  deactivate  a  "pixel"  <?c 
the  very  high  speed  of  the  DMD  cell.  The  DMD  is  more  fully 
described  in  (2)  and  (3) .  In  an  electronic  printer  using  a 
xerographic  type  process  the  light  is  used  to  selectively 
dissipate  charge  on  a  transfer  medium,  prior  to  the  charge 
being  transfered  to  paper,  allowing  the  selective  deposition  of 
"toner"  material  on  the  paper.  The  most  common  type  of  printer 
using  this  process  is  the  laser  printer,  which  requires  in 
addition  to  the  laser  a  complex  optical  system  and  a 
mechanically  rotating  mirror  to  'scan'  the  transfer  medium.  Use 
of  the  DMD  (Fig.  (4) )  is  simpler,  allowing  use  of  a  conventional 
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incandescent  source.  Additionally,  by  variation  of  the  "on" 
time  of  the  cell,  the  DMD  allows  use  of  grey-scale  printing . 
Mechanical  analysis  of  such  devices  by  FEA  is  not  different 
from  analysis  of  large  structures,  the  only  requirement  being 
judicious  choice  of  units  for  dimensions  and  mechanical 
properties  to  avoid  faults  due  to  arithmetic  overflow  or 
underflow.  Electrostatic  analysis  is  also  relatively  simple,  as 
the  equations  of  electrostatics  are  identical  with  those  of 
heat  transfer .  By  use  of  COSMIC  NASTRAN  in  these  applications 
it  is  possible  to  accurately  model  the  behavior  of  a  DMD  and 
assess  the  effects  of  design  modifications  without  the  very 
considerable  expense  of  a  production  run. 


EQUATIONS  OF  ELECTROSTATICS  AND  THEIR  ANALOGS: 

The  analogy  between  electrostatics  and  steady-state 
heat  transfer  is  exact,  and  NASTRAN' s  heat  transfer 
capabilities  can  be  used  in  the  solution  of  electrostatic  field 
problems  without  modification .  In  heat  transfer  we  have: 


q  =  -  k.  7  T 


(1) 


whereas  in  electrostatics  the  polarization,  D,  is  given  by: 


D  =  -  S  .  7  V  (.2) 

Heat  sources  and  sinks  are  equivalent  to  point  charges  and 
fixed  temperatures  are  equivalent  to  fixed  potentials .  In 
electrostatics  the  potential  gradient  is  refered  to  as  the 
field,  E.  There  is  no  directly  analogous  term  in  heat  transfer . 
The  analogy  between  the  different  terms  is  listed  in  Table  (1) 
below: 


TABLE  1:  ANALOGY  BETWEEN  ELECTROSTATICS  AND  HEAT  TRANSFER 


HEAT  TRANSFER 

ELECTROSTATICS 

TEMPERATURE 

POTENTIAL  V 

TEMPERATURE  GRADIENT 

ELECTRIC  FIELD  E 

HEAT  FLUX 

POLARIZATION  D 

HEAT  SOURCE 

POINT  CHARGE  q 

j  CONDUCTIVITY 

PERMITTIVITY  £ 
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The  force  exerted  on  a  charge  by  an  electric  field  is  given  by: 


F  -  q  .  D 


(3) 


where  D  is  the  electric  polarization  and  q  the  charge.  As  the 
charge  itself  contributes  to  the  field  it  is  necessary  to 
integrate  the  above  expression  to  obtain  a  useful  expression  in 
terms  of  E ,  giving  normalized  force,  or  pressure,  in  vacuo: 


F  =  0.5  ZqE.E 


(4) 


where  is  the  permittivity  of  free  space.  This  expression 
allows  calculation  of  the  pressure  exerted  at  an  element  face 
directly  from  the  output  of  the  finite  element  analysis.  The 
charge  distribution  resulting  from  a  potential  distribution  is 
obtainable  from  the  single  point  constraint  forces  which  in  the 
case  of  heat  transfer  indicate  heat  sources  and  sinks.  One 
important  difference  in  behaviour  between  the  electrostatic 
case  and  the  thermal  case  is  that  a  conducting  material  acts  in 
electrostatics  in  a  manner  equivalent  to  an  infinitely 
conductive  material  in  heat  transfer,  so  that  all  points  on  the 
conductor  are  at  the  same  potential .  This  can  be  modelled  by 
appropriate  constraints  in  the  NASTRAN  input  deck. 


ELECTROSTATIC  MODEL  OF  THE  DMD: 

A  3-D  model  of  the  DMD  cell  was  constructed  using  solid 
elements  as  shown  in  Fig.  (5).  Fig. (6)  plots  the  z-component  of 
the  electric  field  ,Ez,  vs.  x-coordinate  at  the  center  and  edge 
of  the  model  for  a  bias  potential  of  -12V  and  address 
potentials  of  +5V  and  zero.  Fig. (7)  is  a  fringe  plot  of  Ez 
superimposed  on  the  model.  On  the  basis  of  the  results  obtained 
it  was  determined  that  fringeing  effects  were  of  relatively 
small  significance  and  a  series  of  2-D  models  were  made  with 
mirror  rotation  angles  form  1  to  9  degrees  in  the  XY  plane. 
Rotation  of  approximately  9.2  degrees  was  sufficient  to  bring 
the  mirror  in  contact  with  the  landing  electrode .  From  each  of 
these  models  The  useful  component  of  electric  field,  Ey,  was 
obtained  as  a  function  of  location  on  the  mirror.  In  increments 
corresponding  to  element  size  on  the  model,  the  force  exerted 
on  the  mirror  was  calculated  as  a  function  of  location  using  Ey 
and  the  mirror's  width  as  a  function  of  location .Figs . (8-11) 
are  fringe  plots  of  potential  V  and  field  Ey  for  two  different 
rotation  angles.  Figs.  (12-13)  plot  Ey  vs.  location  for 
different  rotation  angles  for  bias  potentials  of  -12V  and  -16V, 
with  an  address  potential  of  +5V.  The  choice  of  +5V  allows  use 
of  standard  (TTL  or  CMOS)  logic  electronics  to  control  the  DMD, 
with  the  bias  potential  being  generated  separately. 
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MECHANICAL  MODEL  OF  THE  DMD: 


The  mechanical  model  of  the  DMD  was  constructed  in  order  to 
verify  the  assumption  that  the  device  acted  as  a  rigid  body 
(the  mirror)  mounted  on  torsion  rods.  Using  the  measured 
dimensions  of  the  device  a  model  was  constructed  using  plate 
and  bar  elements  and  subject  to  modal  and  static  analysis.  It 
was  determined  that  deformation  of  the  mirror  plate  was 

negligible ,  and  that  the  torsion  bars  had  three  deformation 

modes  of  interest  with  frequencies  of  56.2,  192  and  545  kHz.  as 
plotted  in  Fig.  (14) .  The  higher  modes  involved  plate 
deformation  at  very  high  frequencies.  These  results  indicated 
that  the  elastic  constants  used  were  valid  (experimentally  the 
first  mode  was  at  approximately  54  kHz)  and  that  in  applying 
electrostatic  forces  to  the  mirror  it  was  valid  to  use  a  single 
lumped  force  at  an  arbitrary  node,  and  not  necessary  to  apply 
pressures  over  each  element  of  the  DMD  model.  It  was  also 

determined  from  this  model  that  a  force  of  1.74  millidynes 
applied  at  the  DMD  tip  was  required  to  fully  rotated  the  mirror. 


RECONCILIATION  OF  MODELS  AND  EXPERIMENTAL  DATA: 

Using  the  electrostatic  DMD  model  it  is  possible  to  plot 
force  or  torque  on  the  DMD  against  angle  for  different  bias  and 
address  potentials .  It  should  be  possible  to  predict  the 
potentials  at  which  the  device  can  fully  rotate.  In  this 
circumstance  the  electrostatic  force  will  exceed  the  mechanical 
restoring  force  at  all  angles  of  rotation,  and  will 
tangentially  approach  the  restoring  force  curve  at  a  critical 
angle  which  is  readily  determined  experimentally . 
Experimentally,  for  an  address  potential  of  5V,  a  bias 
potential  of  -16V  is  found  necessary,  with  a  critical  angle 
around  5.5  degrees.  Fig.  (15)  shows  experimental  data  plotting 
bias  voltage  vs.  address  voltage  for  spontaneous  rotation. 
Fig.  (16)  plots  the  net  force  on  the  DMD  from  electrostatic 
fields  vs.  angle  for  an  address  potential  of  +5V  and  bias 
potential  of  -12V  and  -16V.  Also  plotted  is  the  mechanical 
restoring  force  based  on  the  finite  element  structural  model  of 
the  DMD.  The  curve  for  -16V  does  appear  to  tangentially 
approach  the  mechanical  force  curve  at  around  5  degrees,  and 
thus  is  in  excellent  agreement  with  the  experimental  data. 

CONCLUSIONS: 

The  use  of  very  simple  2-D  models  of  electrostatic  fields  has 
proven  to  give  accurate  values  of  electrostatic  forces  in  a 
micromechanical  device.  It  appears  likely  that  any  desired 
accuracy  is  attainable  if  a  sufficiently  complex  model  is  used. 
The  response  time  of  the  device,  although  fast  for  a  mechanism, 
is  much  less  than  the  rise  time  of  the  electrode  potentials . 
Thus  the  data  on  force  vs.  rotation  could  also  be  used  in  a 
transfer  function  or  nonlinear  spring  input  to  allow  dynamic 
modelling  of  the  device. 
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RIT2  METHOD  FOR  TRANSIENT  RESPONSE 
IN  SYSTEMS  HAVING  UNSYMMETRIC  STIFFNESS 

Thomas  G.  Butler 
BUTLER  ANALYSES 


If  the  choice  of  generalized  coordinates  for  determining 
the  transient  response  of  a  non-symmetric  structure  were  not 
eigenvectors  but  were  modes  of  deformations  due  to  operating 
loads,  there  would  be  certain  advantages.  Among  these  would  be: 
1.  the  economy  of  requiring  only  a  small  number  of  modes,  2.  the 
avoidance  of  having  either  to  cull  out  certain  non-participating 
modes  or  to  retain  the  non-participating  modes  at  the  expense  of 
having  to  operate  with  larger  order  matrices,  and  3.  the  con¬ 
fidence  of  getting  well  converged  solutions.  Using  load  response 
modes  as  generalized  coordinates  is  properly  classified  as  the 
Ritz  Method. 

The  interest  in  the  case  of  non-symmetric  stii 
derives  from  structures  with  active  control  systems.  The  af  •• . 
metry  comes  from  the  sensor  being  situated  at  a  di*  •<  'int  1c 
tion  than  the  actuator.  Loads  that  would  be  typ.  - «  of  those 
used  in  the  design  of  control  systems  are:  externally  applied 

forces  and  pressures,  vernier  jets  whose  firing  is  commanded  by 
the  control  system,  and  constraints  from  appendages  assigned  to 
attach  points.  Such  a  solution  method  is  developed  here  as  a 
DMAP  ALTER  packet  to  the  Statics  Rigid  Format  in  NASTRAN.  The 
Inertia  Relief  Rigid  Format  would  appear  to  be  a  more  natural 
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host  for  such  an  ALTER  packet,  because  it  carries  out  full  proc¬ 
essing  of  mass.  Its  prohibition  against  boundary  constraints 
disqualifies  it,  hence  Statics  with  modifications  to  process  mass 
is  used  as  host. 

THEORETICAL  APPROACH 

The  theory  will  be  organized  in  5  parts.  It  will  de¬ 
scribe  the  mathematical  decisions  on  using  the  original  stiffness 
matrices  in  the  development  of  fundamentals  first.  It  will 
describe  the  generation  of  harmonics  from  each  fundamental, 
second.  Then  it  will  develop  the  adjoint  vectors  third.  Having 
a  full  complement  of  primary  and  adjoint  generalized  vectors, 
the  next  step  is  to  orthogonalize  them  and  finally  to  integrate 
them  into  an  actual  solution  by  constructing  the  generalized  mass 
and  generalized  stiffness  and  reconciling  the  form  of  the  gener¬ 
alized  damping. 

The  methods  presented  herein  are  an  outgrowth  of  a  new 
non-collocated  sensor  actuator  analysis  method  under  development 
by  H.  P.  Frisch  at  the  NASA/GSFC,  Code  712.*  The  motivation  for 
the  NASTRAN/DMAP  implementation  presented  herein  is  to  provide  a 
working  capability  which  can  be  used  for  both  current  practical 
applications  and  for  the  evaluation  of  the  new  analysis  method 
prior  to  its  inclusion  into  the  general  purpose  multi-flexible 
body  data  preparation  program  FEMDA. 


1.  Frish,  H.P.  "IAC  Program  FEMDA,  Theory  and  User's  Guide, 
Interface  from  Structural  Analysis  Output  Data  to  Input  Data  for 
Multi  Flexible  Body  Dynamics  Analysis,"  NASA  Tech  Brief  Draft, 
June  13,  1088.  (Call  author  for  status  info  301-286-8730) 
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FUNDAMENTAL  MODES 


A  structure  must  be  defined  according  to  its  elastic 
distribution,  its  damping  distribution,  its  mass  distribution, 
its  boundary  conditions  and  its  complement  of  those  loading 
conditions  which  are  active  during  its  operation  under  a  control 
system.  Each  such  loading  that  can  be  applied  independently  of 
some  of  the  other  loadings  should  be  treated  as  a  distinct  defor¬ 
mation-producing  condition;  i.e.  as  one  producing  a  unique  static 
response  shape.  Within  the  theory  of  linear  elasticity  the 
magnitudes  of  static  response  to  a  static  loading  varies  directly 
as  the  magnitude  of  the  loading,  so  a  simple  unit  magnitude  of 
load  is  all  that  is  necessary  to  establish  the  shape  of  an  in¬ 
dividual  mode  into  which  the  structure  deforms.  A  sketch  of  a 
cantilevered  beam  with  an  end  load  illustrates  the  point.  The 
loads  are  graduated  from  1  unit,  to  2  units,  to  3  units. 


The  ratio  of  deformation  to  load  stays  constant  at 
L^/(3EI;  as  the  load  varies.  The  same  holds  true  at  positions 
other  than  the  tip  deflections.  For  instance,  the  deflection  at 
an  interior  point,  such  as  L/s  where  1  <  s  <  <»,  is 
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,  therefore 

,  which  shows  that  the  ratio 

of  deformation  to  load  at  an  interior  point  stays  constant  as 
load  varies.  The  notion  of  shape  that  is  independent  of  ampli¬ 
tude  can  be  easily  depicted  by  a  sketch  of  a  violin  string  being 
played  in  its  fundamental  mode. 


All  three  show  the  string  sounding  the  same  pitch  (frequency;  but 
at  different  loudnesses  (amplitude).  All  3  deformations  are 
considered  to  have  the  same  shape. 

Therefore,  in  order  to  get  started,  a  controlled  struc¬ 
ture  must  be  exercised  with  a  unit  load  for  each  loading  condi¬ 
tion,  which  can  vary  in  magnitude  independently  of  other  loads. 
This  will  produce,  what  will  be  called,  the  set  of  fundamental 
modes  for  the  complement  of  loading  conditions.  It  was  assumed 
at  the  start. of  this  derivation  that  the  set  of  loads  produced  a 
set  of  unique  static  modes.  This  assumption  needs  to  be  tested 
against  a  criterion  for  uniqueness.  The  criterion  that  is  ger- 
main  here  is  linear  independence.  The  modes  need  to  be  put  on  an 
equal  footing  for  such  a  test  by  normalizing  them  uniformly. 
There  is  a  choice  of  methods  for  normalizing  at  this  point. 
Because  this  is  a  dynamics  problem,  one  would  be  inclined  toward 
mass  normalization,  but  for  now  a  simple  Euclidean  length  will 
suffice  to  put  the  modes  on  an  equal  footing  to  establish  linear 
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independence.  Later,  when  the  modes  are  orthogonalized,  they 
will  be  normalized  to  mass.  Normalizing  to  maximum  or  to  the 
amplitude  of  a  common  position  will  be  excluded,  because  of  the 
bias  that  would  be  introduced  in  the  linear  independence  check. 

Initially  static  modes  are  to  be  obtained  by  solving  n 
loadings . 

a>  [Ktx]  [{ul}'{u2} . {un}J  L  =  [{Pl}'{P2}' - '{Pn}]L 

■■■>  hi\  Kj]  •  h}]  • 

Each  of  the  |ujj-  of  CU3  will  be  individually  normalized  by  its 
Euclidean  length.  Compute  the  individual  normalizing  constants 
according  to 

<2)  [f/bl]  =  nr 

Each  term  of  |u^j  will  now  be  divided  by  the  square  root  of 
the  normalizing  constant  n^..  Name  this  normalized  fundamental 

(3)  PHI  sub  j,  i-e.  -“ju.J  = 

In  order  to  use  these  static  deformations  as  generalized 
coordinates,  they  should  be  linearly  independent.  Now  we  are 
faced  with  the  decision  as  to  what  criterion  of  linear  independ¬ 
ence  to  use  and  what  tolerance  to  allow.  The  classical  defini¬ 
tion  of  linear  independence  is  that  the  Gramian  >  0.  The 
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Gramian*'  is  a  determinant  of  the  matrix  of  the  dot  products  of 
each  coordinate  into  every  other  coordinate.  Translated  to  the 
context  in  which  we  want  to  consider  it,  assume  that  the  group  of 

vectors  0^ - 0n  is  a  set  to  be  tested,  then  the  Gramian  for 

them  is 


(4)  G(  <t>,  0O, . ,<!>  >  = 

jL  f  it  I  i 


T 

♦X 

T 

*1*2 

T 

*1*3 ’ *  * 

T 

•••♦X 

T 

T 

♦2*1 

*2*2 

*2*3*  *  * 

' *  *  *2*n 

0T01 

Tn¥l 

A 

yn*2 

*n*3‘ 

. . . 0T0 
YnYn 

If  G(0^ . 0  )  =  0,  the  set  of  0^  are  a  dependent  set,  but  if  it 

is  >  0  the  set  of  0n  are  linearly  independent.  In  a  finite 
number  system,  such  as  that  under  which  a  digital  computer  oper¬ 
ates,  the  establishment  of  a  true  zero  is  difficult,  if  not 
impossible.  Consequently  the  decision  as  to  what  criterion  to 
use  rests  on  the  practical  consideration  of  how  much  impurity  to 
allow  in  the  set  that  we  want  to  use  as  the  expansion  functions. 
If  the  Gramian  is  just  slightly  greater  than  zero,  it  implies 
that  yes  a  functional  relationship  can  be  set  up  for  one  in  the 
set  with  respect  to  the  others,  because  imperfections  creep  in  to 
contaminate  the  zero  computation.  Now  if  all  0's  were  normalized 
to  unity  and  constituted  a  truly  linearly  independent  set,  then 
the  value  of  the  Gramian  would  be  unity. 

G( unity  normalized  0)  =  1. 


2.  TENSOR  ANALYSIS,  by  I.  S.  Sokoinikoff;  pp  6;  John  Wiley, 1951 
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Any  departure  from  1  in  the  Gramian  of  this  unity  normalized  set 
means  that  some  imperfection  is  creeping  in  and  the  further  the 
descent  from  1  towards  zero  implies  more  and  more  imperfections 
away  from  true  linear  independence.  So  What!  Our  goal  is  to 
have  a  good  set  of  vectors  so  that  when  we  expand  our  solution  in 
them,  we  will  get  good  accuracy  and  get  good  convergence.  If  we 
have  a  set  of  linearly  independent  vectors  but  too  few  of  them  to 
span  the  range  of  actions  in  which  our  structure  will  operate,  we 
will  fail  to  converge  close  enough  to  a  correct  solution.  If  we 
admit  too  many  vectors  that  are  almost  independent,  but  do  have 
some  imperfections,  the  answers  will  contain  biased  emphases  and 
will  definitely  contribute  amplitudes  that  are  too  great  in  some 
modes.  In  further  consideration  of  the  practical  factors  that 
will  govern  our  decision,  we  ask,  "What  will  it  cost  to  find  out 
if  there  is  linear  independence?"  In  the  case  of  the  Gramian, 
the  computations  involve  the  creation  of  a  full  matrix  of  vector 
dot  products  that  must  then  be  decomposed  and  finally  the  product 
of  all  diagonal  terms  of  the  decomposed  matrix  forms  the  Gramian 
determinant.  Decompositions  are  expensive,  so  a  method  other 
than  using  the  Gramian  would  be  worth  while  to  investigate. 

Another  approach  is  to  look  at  the  ingredients  of  the 
Gramian  i.e.  the  individual  matrix  dot  products.  By  definition 
the  dot  product  of  2  vectors  A  and  B  is 

A  .  B  =  |A|x|B|  cos  0,  where  0  is  the  generalized  angle 
between  the  2  vectors.  This  can  be  extended  to  vectors  in  N-di- 
mensional  space.  Set  up  a  criterion  based  upon  the  size  of  the 
angle  that  a  trial  vector  $  makes  with  each  of  those  4>n  that  have 
already  been  judged  linearly  independent. 
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x,  where  x  is  some 


threshhold  value.  Ideally  x  would  be  it/ 2  for  an  orthogonal  set 
with  perfect  linear  independence.  The  poorest  possible  value 
would  be  that  for  which  <{>n  and  0^  are  coincident,  i.e.  zero 
angle.  This  criterion  can  be  rephrased  by  saying  that  it  tests 
how  well  cos  0  compares  with  cos  it/ 2 


(6) 

fcos  0.  ) 

(cos  T  I 

< 

K  . 

{  k,nj 

t  2  > 

The  desire  is  to  hold  the  angle  between  test  vectors  to  be  some¬ 
where  between  a  threshhold  and  tt/2.  If  the  threshhold  angle  were 
tt/3,  k  =  cos  tt/3  =  .5,  then  the  test  would  require  the  cosine  of 
the  angle  between  test  vectors  to  be  less  than  0.5  : 


0.5  =  k  for  all  1<  n  <  k. 


Once  k  has  been  decided  upon,  the  test  is  carried  out  against 
every  ^  tor  n  <  k. 

In  the  case  of  the  cosine  test,  the  matrix  of  dot  pro¬ 
ducts  would  have  to  be  formed  as  in  the  case  of  the  Gramian,  but 
no  decomposition  need  be  done.  The  absolute  value  of  each  term 
is  compared  to  k. 


The  Gramian  test  has  the  advantage  or  making  its  decision 
by  comparing  only  one  number  against  a  threshold  while  the  cosine 
test  involves  comparison  of  every  ratio  in  a  column  against  a 
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threshhold.  The  term  by  term  processing  involves  only  simple 
operations;  the  net  result  is  that  the  cosine  test  is  much  less 
expensive  than  the  Gramian  test.  The  cosine  test  has  been  chosen 
for  this  method. 

HARMONICS 


Modes,  determined  solely  on  the  basis  of  static  loads, 
are  questionable  to  apply  without  supplement  to  the  solution  of 
dynamics,  because  they  are  devoid  of  inertia  effects.  Supplemen¬ 
tal  modal  vectors  can  be  generated  by  finding  the  deformation  due 
to  forces  derived  from  accelerating  masses  distributed  through 
the  structure  by  an  amplitude  equal  to  the  vector  of  elastic 
deformation.  Call  the  deformation  from  inertia  effects,  ac¬ 
celerated  by  amplitudes  derived  from  the  fundamental  mode,  the 
first  harmonic.  A  second  harmonic  can  be  generated  by  the  scheme 
used  to  generate  the  first  harmonic,  except  that  the  the  inertias 
are  now  accelerated  through  amplitudes  derived  from  the  first 
harmonic.  Similarly,  a  third  harmonic  can  be  generated  from  the 
acceleration  of  mass  through  the  amplitudes  of  the  second  har¬ 
monic,  etc.  Eventually  the  upper  harmonics  will  tend  towards 
congruence,  so  there  will  be  an  nth  harmonic  beyond  which  no 
distinct  modes  will  be  added.  The  measure  to  be  used  for  finding 
the  useful  limit  will  be  linear  independence. 

The  set  of  linearly  independent  modes,  consisting  ot  a 
group  of  fundamentals  plus  groups  of  harmonics  associated  with 
each  fundamental,  when  normalized  to  the  Euclidean  length,  then 
orthogonalized,  will  be  used  as  modes  of  generalized  coordinates 
in  expanding  the  behavior  of  a  structure  under  the  management  of 
a  control  system.  The  mathematics  of  these  inertia  modes  fol¬ 
lows.  The  mass  of  the  structure  will  be  accelerated  by  an 
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amplitude  distributed  spatially  according  to  the  shape  of  the 
normalized  -  but  not  orthogonalized  -  fundamental  mode  J  to 
create  an  inertia  forcing  for  the  first  harmonic  |f^J;  i.e. 

,7)  tPhl}  ■  [»LL]{if}  '  where 

(8)  {^f}  =  {^f  “ 2  cos  ojt}  =  {  "W^cos  uJtjj-  . 


The  shape  of  the  deformation  through  which  the  mass  will  be 

accelerated  is  established  by  The  effect  of  the  term 

2  r 
(w  cos  wt)  is  to  merely  amplify  the  shape  as  a  function  of  time. 

Our  interest,  at  this  stage  of  the  derivation,  is  only  in  the 

shape  and  not  the  total  dynamic  response,  therefore  the  forcing 

can  be  treated  as  a  statics  problem  with  the  spatial  distribution 

of  the  set  of  accelerations,  limited  to  any  instant  of  time, 

therefore 

•  • 

<J>£  s  <{>f  and  the  resulting  static  force  is 


191  Ki}  -  KJK}- 


Apply  this  force  to  the  structure  and  solve  for  the  response. 

<10)  [KLl] {uhl }  =  {Fhl}  =  [MLl] {^f }  ' 

from  which  the  response  can  be  explicitly  isolated: 


(id  {uhl}  =  [kll]  KJK}- 

The  50  obtained  will  be  normalized  by  the  Euclidean  length 
and  will  be  tested  for  linear  independence  ,  which  if  accepted, 
will  be  named  and  will  augment  the  complement  of  Ritz 
modes.  This  first  harmonic  will  have  a  shape  of  deformation 
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sufficiently  unique  to  make  it  worth  while  to  consider  it  as  the 
basis  for  accelerating  the  mass  through  its  spatial  behavior  to 
obtain  a  second  harmonic,  similar  to  the  way  that  the  fundamental 
was  used  in  the  generation  of  the  first  harmonic.  Mathematically 
the  method  of  forming  the  second  harmonic  follows  the  pattern 
already  established  for  the  first  harmonic.  Form  the  forcing 


(12) 


{Fh2}  "  [MLL  {♦hi}' 


Let  {ihl}  =  {*hl} 


— t(cos  wt)  and  limit  the  value  to  its 
dt* 


static  amplitude  <j>^  |  -  |  4^  |  /  then  solve  for  the  static 

response  ju^j  from 

!i31  MK2}  ■  {Fh2}  *  KJki}  • 

Extract  ju^j  explicitly. 

(14)  {Uh2}  =  [KLl]  KJWl}  * 

The  |u^2}  so  obtained  will  be  normalized  by  its  Euclidean 
length  and  will  be  tested  for  linear  independence,  which  if  ac¬ 
cepted,  will  be  named  anc*  augment  the  complement  of 

Ritz  modes.  A  question  arises  as  to  the  extent  to  which  a  can¬ 
didate  harmonic  should  be  tested  for  linear  independence.  Should 
it  be  tested  against  every  other  vector  established  up  to  this 
point,  or  should  the  candidate  harmonic  be  tested  for  linear 
independence  only  against  its  parent  fundamental  and  the 
harmonics  that  are  spawned  from  that  fundamental  alone?  From  an 
algorithmic  standpoint  the  latter  route  is  favored,  because  all 
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quantities  stay  within  an  inner  loop.  The  merit  of  this  deci¬ 
sion  can  be  tested  and  be  replaced  if  need  be.  It  is  known  that 
as  the  recursion  steps  are  carried  out  for  higher  harmonics,  the 
deformations  will  tend  toward  congruence  so  there  is  a  definite 
need  for  testing  each  new  candidate  harmonic  against  its  parent 
and  siblings.  If  there  is  no  physical  risk  for  so  limiting  the 
linear  independence  check  to  the  family  associated  with  just  one 
fundamental,  it  will  be  opted  for  here. 


A  certain  pattern  starts  to  appear  from  the  development 
of  these  two  harmonics.  The  matrix  product  Jk^J  *s  used 
repeatedly.  Consequently,  it  can  be  generated  once  and  saved  for 
recall  in  the  generation  of  any  level  of  harmonics  of  any  fun¬ 
damental.  Name  this  matrix  product 


(15)  CSOLiU  =  [k£l 

character  for  the  primary  or  the  adjoint  mode,  and  *  can  take  on 
either  blank  for  primary  or  T  (for  transpose)  for  the  adjoint. 
Discussion  of  adjoint  mode  generation  will  be  taken  up  subse¬ 
quently. 


]  KJ ' 


where  i  can  take  on  the  BCD 


Capitalizing  on  the  pattern  that  has  been  revealed,  all 

first  harmonics  for  all  fundamentals  can  be  generated  in  a  series 
of  matrix  operation  as  follows,  as  adapted  for  the  primaries: 


322 


RITZ  METHOD  FOR  TRANSIENT  RESPONSE 
IN  SYSTEMS  HAVING  UNSYMMETRIC  STIFFNESS 


(15A)  [{ui},{u2},{u3b-  *  ‘  ‘  ,{Ui},  *  *  ’  ,{Un}]slj 

[KlJs  [MLl]  [{^l} ,{^2} ,{^3} ,  *  *  *  *  ,{4>i.b  *  *  *  ,{*n}jSf 

This  can  be  compressed  into 

ass)  [uHi]s=  M^KJWg 

Equations  (15,15A,15B)  represent  all  possible  inertia  response 
raw  data  for  forming  first  harmonic  modes  of  primary  fundamen¬ 
tals. 


Normalization  of  these  responses  can  also  be  performed  on 
all  vectors  treated  as  a  matrix.  The  Euclidean  length  can  be 
extracted  from  the  multiplication  of  juH1j  by  itself. 

(150  [UHJ  [UHJ  =  [uH1SQj  . 

Strip  off  the  diagonal,  take  the  inverse  of  each,  fol¬ 
lowed  by  its  square  root,  to  form  a  diagonal  matrix  of  scale 
factors  mode  by  mode. 


r  -i 

1 15b) 

It 

II 

II 

- - 1 

at 

CO 

H 

-C 

p 

_ I 

Lscalhi] 

Apply  this  matrix  of  scale  factors  to  the  first  harmonic  respons¬ 
es,  of  fundamental  inertia  loadings,  as  a  post  multiplication 
operation  to  get  a  set  of  candidate  normalized  harmonic  modes. 


USE)  [V]  [sCALHi]  =  [♦“■  . 
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This  matrix  of  candidate  first  harmonics  needs  to  be  tested  for 
linear  independence.  Testing  will  proceed  in  two  parts.  All 
first  harmonics  will  be  tested  against  all  other  first  harmonics, 
then  all  first  harmonics  will  be  tested  against  all  fundamental 
modes.  Start  with  the  harmonics  by  themselves.  The  cosine  test 
involves  taking  the  dot  product  of  every  mode  against  every  other 
mode.  This  is  done  in  a  single  matrix  operation. 


U5F,  ■  KJ. 


Examining  the  |DOTH1J  matrix  closely,  one  can  recognize  that  the 
first  row  represents  the  dot  product  of  *  e  harmonic  (first  in 
sequence)  against  each  of  those  in  the  set  of  harmonics.  The 
second  row  represents  the  dot  product  of  the  harmonic  ( second  in 
sequence)  against  each  of  the  set  of  harmonics.  Et  cetera. 
Consequently,  the  next  step  is  to  strip  off  one  row  to  examine 
how  well  this  candidate  harmonic  holds  up  in  the  cosine  test 
versus  other  first  harmonics.  Next  another  row  is  stripped  off 
and  this  candidate  is  tested  and  so  on  until  all  candidates  have 
been  examined.  If  the  vectors  had  not  been  initially  normalized 
to  length,  it  would  have  been  necessary  to  do  so  at  this  point  to 


form  the  cosines.  As  a  consequence,  the  matrix  DOT^ 
all  cosine  terms.  Going  back  now  to  the  first  row. 


consists  of 
some  detail 


will  reveal  a  pattern  for  systematizing  all  of  the  candidates. 


Select  one  term  at  a  time  starting  with  the  2nd  and  take 
its  absolute  value  then  compare  that  value  with  k.  Shift  the 
index  to  the  3rd  and  do  the  same.  Continue  until  either  a  value 
greater  than  k  is  encountered  or  until  the  the  end  of  the  row  is 
reached.  If  any  term  tests  greater  than  k,  catalog  the  row 
number  and  proceed  to  the  next  row.  All  successful  candidates 
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will  be  eligible  to  be  tested  against  the  matrix  of  fundamental 
modes.  The  harmonic  vs.  fundamental  test  will  patterned  after 
the  harmonic  vs.  harmonic  test.  All  successful  candidate 
harmonics  will  be  held  in  reserve  to  form  the  basis  of  2nd 
harmonics  before  they  will  be  merged  with,  but  in  sequence  after, 
the  fundamental  modes. 

The  number  of  successful  first  harmonic  modes  may  be 
fewer  than  those  in  the  set  of  fundamentals.  This  does  not 
matter,  because  the  method  of  computing  harmonics  is  independent 
of  the  size  of  the  order  of  the  vectors  from  which  they  are 
derived.  The  generation  of  second  harmonic  modes  and  higher  will 
proceed  along  the  pattern  just  outlined  for  first  harmonic  modes, 
except  that  after  the  responses  to  inertia  loads  have  been  com¬ 
puted,  the  successful  modes  from  which  they  were  derived,  will  be 

t  Iri 

merged  into  the  matrix  of  previous  Ritz  modes.  Now  the  i— 
set  of  harmonics  will  be  tested  for  linear  independence  vs.  not 
only  themselves  but  against  all  other  Ritz  vectors  including 
fundamentals  and  all  previous  orde**  successful  harmonics  up 
through  the  (i-1)  — . 

The  generation  of  higher  harmonics  will  be  subject  to  a 
choice  of  two  limitations.  The  analyst  may  want  to  limit  the 
maximum  number  of  harmonics  to  be  admitted  for  any  particular 
investigation  because  of,  say,  a  study  in  a  low  frequency  domain. 
He  can  invoke  such  control  by  giving  the  value  of  the  maximum 
number  of  harmonics  to  the  parameter  MODSPEC.  Declining  to 
assign  a  value  to  MODSPEC  will  cause  the  number  of  harmonics  to 
be  limited  by  those  that  pass  the  linear  independence  check. 
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ADJOINT  MODES 


For  the  non-symmetric  problem,  adjoint  vectors  are  re¬ 
quired  to  obtain  the  reduced  order  coefficient  matrices.  There 
are  no  set  rules  for  introducing  the  adjoint  basis.  In  the 
spirit  of  Lanczos  method,  a  trial  method  is  introduced  and 
refined.  For  lack  of  any  better  trial  scheme,  the  starting 
matrices  of  the  adjoint  system  that  will  be  used  here  will 


consist  of  the  transpose  of  the  original 


[kll]  - 

vectors 


(which  will  also  be  non-symretric ) ,  and  the  original  load 


K 


LL 


matrix;  i.e. 


h} 


The  static  solution  of  this  adjoint  system  under  the  n 
original  loads  yields  a  set  of  responses  |vj|: 

(16)  [KLl]  [{vl}'{v2} . fn}]  ■  . {Pn}] 

■■■■>  KJh,]  •  kJ  • 

Each  of  the  of  CVJ  will  be  individually  normalized  by  its 

Euclidean  length.  Compute  the  individual  normalizing  constants 
according  to 


1171  [{vj}  <vj}]  =  “T 

/  > 

Each  terra  of  -jvvj  will  now  be  divided  by  the  square  root  of  the 

normalizina  constant  a..  Name  this  normalized  fundamental 

D 

1  18 1  PS1  sub  i,  i.e.  -±— j  v^  j-  =  {^j}' 
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Each  adjoint  fundamental  will  be  checked  for  linear  independence 
against  all  other  adjoint  fundamentals.  If  any  adjoint  fundamen¬ 
tal  mode  fails  the  linear  independence  check,  and  if  its  primary 
companion  passed,  both  primary  and  adjoint  will  be  discarded. 
This  is  necessary  in  order  to  retain  a  uniform  sequence  when 
setting  up  generalized  mass  and  generalized  stiffness.  The 
cosine  test  will  be  used  to  certify  linear  independence.  Iner¬ 
tial  harmonics  of  adjoint  fundamentals  will  be  generated  in  the 
same  manner  as  those  of  the  primary  fundamentals.  Once  again  the 
linear  independence  of  the  adjoint  harmonics  will  be  checked  only 
against  its  parent  and  siblings,  instead  of  the  currently  estab¬ 
lished  set  of  ALL  Ritz  modes. 

ORTHOGONAL IZATION 


The  solution  of  the  differential  equations  is  enhanced  if 
the  generalized  coordinates  used  to  span  the  response  space  are 
orthogonal.  (Jur  set  ot  linearly  independent  vectors  can  be 
orthogonalized.  At  this  point  we  have  a  pair  of  bases  vectors 
£<*}  and  £ij)3  that  are  each  separately  linearly  independent.  After 
orthogonalizing  they  will  be  given  the  symbols  ££3  and  {A3  re¬ 
spectively.  Options  for  orthogonalization  and  for  associated 
constraint  weightings  were  given  due  consideration.  Before 
deciding  on  what  options  to  choose,  it  will  help  to  review  the 
ultimate  application. 

The  dynamic  equation  in  metric  coordinates  is: 


( 19) 


•  •  * 

CM3{x  3  +  CBJCxi  +  CK3Cxi 


F<  t)  . 
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Transform  the  metric  coordinates  to  the  primary  bases 
vectors  as  generalized  coordinates.  Assume  that  the  orthogonali- 
zation  of  <J>  into  Q  has  already  taken  place.  Let 

(20)  £x}  =  C^3{^3,  giving 

cmucciics  3  +  cbuccku  +  naccKU  =  F(t>. 

At  this  point  the  columns  only  of  the  coefficient  matri¬ 
ces  M,  B,  and  K  have  been  transformed  to  generalized  form.  Next 

the  rows  of  the  matrices  must  be  transformed.  In  the  symmetric 
3 

case  this  is  done  by  using  the  transform  of  the  symmetric 
modes.  However,  in  this  the  unsymmetric  case,  we  pre-multiply  by 
the  transpose  of  the  adjoint  bases  vectors.  Assume  that  the 
orthogonalization  of  x\ >  into  i l  has  taken  place. 

(22)  Cii3TCM3CC3£^  }  +  CftlTCB3C^3£^}  +  C^’mCCUtQ  -  Cii3TF(t). 

The  desire  is  to  decouple  the  equations  as  much  as  possible.  To 
start  with,  we  want  the  generalized  mass  to  be  a  unity  matrix; 
i .  e . 

(23)  C^3TCM3CC3  =  ^I^j. 

Constraining  the  generalized  mass  to  unity  will  affect  the  nor¬ 
malization  to  such  an  extent  that  the  generalized  coordinates 
will  have  been  transformed  to  final  form.  Thus,  much  of  the 


3.  Dynamics  ot  structures,  by  W.  C.  Hurty  &  M.  F.  Rubinstein,  pp 
l^t,  Prentice  Hall,  1964 
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control  in  obtaining  diagonalized  dampmcr  and  diagonalized  stiff¬ 
ness  will  have  been  removed,  so  it  appears  that  the  creneralized 

r\  I 

stiffness  matrix  may  be  coupled.  Since  ^  I^J  is  a  square  matrix, 
the  requirement  of  equation  t'23)  implies  that  the  order  of  the 
adioint  vectors  ft  be  the  same  as  the  order  of  the  primary  vectors 

£• 

A.  Use  Gram-Schmidt  method  for  orthogonalizing  the  Pri¬ 
mary  Ritz  modes  and  apply  the  simple  constraint  of  unit  diagonal¬ 
izing  with  no  weighting. 

B.  But  in  the  case  of  Adioint  Ritz  modes  the  orthocronal- 
ized  set  will  be  expanded  in  terms  of  the  complete  set  of  adioint 
bases  with  the  dual  constraint  of  equation  (23)  havina  mass 
weicrhting. 

Mathematically  these  statements  translate  into  buildina 
the  normalized  vectors  as  follows. 

A.  Self -Orthogonal izat ion 


To  start  with,  the  simple  Gram-Schmidt  method  sets  up  a  matrix  of 
undetet  mined  coefficients  to  involve  an  increasma  number  of 
oases  vectors  $  in  the  content  of  the  orthoaonalized  vectors  Q. 


;  24 


\C-'J  a  I*!)1 

=  ai^i!  *  \*2\ 

=  aEii'ci r  "  a22li’2f 


I 

->  r 
-> ) 


I  - 


} 


1  I 


n-i 


n 


■1  .n-ll^n-. 


1 

nf 
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The  self  normalizing  constraint  is  written  in  matrix  notation  as: 

kJ’kJ  ■  NO 

One  can  better  appreciate  the  earlier  topic  of  having  to  decide 
on  sequencing  during  generation  of  ingredients  of  the  bases  in 
light  of  the  character  of  orthogonalization*  If  the  fundamen¬ 
tals  are  sequenced  together  at  first,  then  the  initial  orthogo- 
nalized  vectors  will  contain  a  minimum  of  higher  harmonics  in 
their  expansion.  We  ask.  Is  this  good  or  bad?  If  inertia 
effects  dominate  the  dynamic  behavior  of  a  structure  under 
certain  loads,  probably  sequencing  harmonics  in  earlier  might 
help.  But  in  this  study  the  option  was  taken  to  group  the  fun¬ 
damentals  ahead  of  the  harmonics  instead  of  layering  one  fun¬ 
damental  and  all  of  its  higher  harmonics  on  top  of  a  second 
fundamental  and  all  of  its  higher  harmonics  et  cetera. 

Trace  the  effect  of  the  orthogonality  constraint  on 
achieving  a  solution  for  the  undetermined  coefficients.  Operate 
on  the  first  two  equations  of  the  set  in  equation  (24). 

(26)  |C2}  =  an{^i}  +  {^2}'  Impose  the 

single  orthogonality  constraint  of  equation  (25). 


(27) 


Subs  for 

=  0  =  =  =  --- 


*2  (  1  1  1  \\  Multiply 

>  Kiln} +  {^2}}  =  0  =====> 


128,  {c-j  +  {tj  {*2j  -  0.  an=  <- 


M  1*2} 

ici}  {h} 
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Substitute  from  (26) 


{^2} 

W} 


The  coefficient 


a^  is  now  expressed  entirely  in  terms  of  the  set  of  known  norm¬ 
alized  bases  vectors  C$3.  Substitute  a^  into  the  equation  above 
and  now  is  known.  Turn  to  the  third  vector. 

(29)  =  a2i{(f,T  f  f  ^ 2 2 { ^ 2 +  ^ 3 } *  '^wo  orthogonality 


conditions  are  imposed  between  and  the  previously  found  Q .  and 

Jl 

r 

u  n  • 

4 


30) 


I  r  I  i 

i-ii  r- 


C-?.) 


Subs  for  C, 


\C-z\  { ^ 3 ^  =  °  {^2}  {a 2 1 1 ^  1  f  +  a 2 2 2 } 


> 

0 


■)  > 


1^2 f  i ^  1  f a 2 1  +  (^2} 


This  gives  two  algebraic  equations  in  the  two  unknowns  a...  and 

X 


CL  -  -  • 

L,  L. 

Substi 


tut  mg 
ve  :t  _-r . 


these  coefficients  makes  -{ C  known. 


Turn  to  the 


331 


RIT2  METHOD  FOR  TRANSIENT  RESPONSE 
IN  SYSTEMS  HAVING  UNSYMMETRIC  STIFFNESS 


(32)  {Ci+l}  =  ali{^l}  +  a2i{4>2}  +  •••*  +  aii{*i}  +  {^i+l}  = 


=  . K},K+l}] 


a11 

a2i 

V 

«il 


-  ^  J 


T 

i+1 


l  1  J 

Assemble  the  i  constraint  conditions  in  preparation  for  sub¬ 
stituting  Ci+1  f  rom  equation  (32)  into  them. 

<33)  {qfkk  -  {c2}t{c1+1}  -  ...*  {tt}T{ci+1}  -  o. 

which  can  be  combined  into 


i3A)  [{«1>T{C2>T{C3>T- ■ ■ * {«±}]  * 


o 

6 

loj 


Now  substitute  the  expansion  in  terms  of 


,34'  [k}T,kf, . ,kr]  [kl.kK . KMW] 


l11 

a2i 

aii 

l  1  ) 


=  0. 


Which  can  be  compressed  into 

(35)  Ca>3i+1[a  jk-0- 

But  by  introducing  partitions  into  L$J  and  Caj  it  can  be  written 
more  intuitively  as 

(36)  CCJT[C(}.JS  =  0.  =  =  =>  |c^C4>DjC£J?t<D}  I]**!  =0. 

* L  **  1)  *-  *  “  ‘  J  {  i) 


,T,- 


T 

'I  *  r 


T 

■•»  •*•  r 


■.T , 


IQ  JjL<j)3iCa}i  +  CCJ-t4)ii+i=  0.  =  =  =>  C^C^Ca}.*  (  -  » C£3JC  <D3i+i 
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from  which  all  of  the  undetermined  coefficients  a. ,a~,...,a.  can 
be  computed  and  substituted  into  equation  (32)  to  evaluate 

For  solutions  of  succeeding  vectors  i+2,  i+3,  ....n;  the 

T 

square  coefficient  matrix  increases  incrementally  in 

order  up  to  n  x  n,  so  that  results  from  the  previous  calculation 
might  be  considered  for  saving.  Then  the  increments  can  be 
merged  into  the  salvaged  core  to  continue  on.  Details  of  the 
strategy  will  be  given  in  the  CODING  document. 


B.  Dual  Qrthogonalization 


The  dual  orthogonalization  of  the  adjoint  bases  are  organized 
into  a  full  matrix  of  undetermined  coefficients  for  the  expansion 
of  normalized  vectors  ii  as  components  of  the  raw  adjoint  bases  ij). 


(37) 


'Uiri:n 

“L33 


“£n}; 


'hi  hz  hs . hn' 

£21  722  T23  °2n 

b31  b32  b33 . b3n 


b*  b  _  b 
nl  n2  n3 


.b '  , 
nn; 


(^Ll3 

C*L33 

* 

^in3; 


This  can  be  written  in  more  conventional  form  as 


(38)  [{^Ll} ,  {^2} ,  ’  *  ’{^Ln}]  =  [{^Ll} ,  {^L2} ,  *  *  *  {^Ln}] 


bll  b21* • ,bnl 

b12  b22*  ’  *j?n2 

D13  d23  *  * ‘  n3 


b!  b,  . . . b‘ 

\  In  2n  nny 


Note  the  the  b^'s  in  equation  (38)  are  the  transpose  of  the 
b^  s  in  equation  (37).  Equation  (38)  can  be  condensed  to 
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(39)  [^Ln]  =  [^Lp]  [^pn]  '  in  which  is  the  transpose  of  the 


bij's- 


The  mass  orthogonality  constraint,  according  to  the 

transformation  requirements  of  the  dynamic  differential  equation 

(23),  is  a  relationship  between  the  normalized  adjoint  and  the 

T 

normalized  primary  bases;  i.e.  Slr  .Mrr£;r  •  =  S.  ..  Since  the  M  and  C, 

Lil  Lib  L  J  Xj 

are  .  known,  their  transposes  can  be  taken  immediately,  so  it 
becomes  better  strategy  to  transpose  tbs  constraint  equation  in 
order  to  obtain  ii  in  non-transposed  form;  i.e. 

<4°>  h/WW  ■ 

Now  substitute  from  the  expansion  equation  (39)  into  the  mass 
orthogonality  constraint  equation  (40).  Confine  to  one  index  at 
a  time.  Set  i  =  1. 

,4i)  [ct/hJKi}  ■  [^l/MKpKppx}  o  is?  j  :  i 

This  will  produce  a  solution  to  the  first  column  of  p^.  Next 
set  i  =  2  and  substitute  for  Ji^from  equation  (39). 

(42)  [CLj]  KJK2}  =  [CLj]  [HJMM  =Sj2={  0  for  j  *  2 

This  will  produce  a  solution  to  the  second  column  of  p.  A  pat¬ 
tern  is  now  apparent  for  solving  for  the  complete  content  of  P  in 
a  single  operation,  by  recognizing  the  coefficient 
^Lp]  is  sarae  in  every  equation;  only  the  columns 
of  unknown  p's  and  the  columns  of  the  change.  Combine  the 

columns  into  matrices;  i.e, 

r  iTr  1 r  ir  i  n  i 

(  a  o  \  r  I  m  iii  R  =l'r 

'"I-"  L^LjJ  L"LLJ  TLpJ  LPpiJ  l.  *\J  • 


Isolate  py 
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<44’  [Ppi]  =  ['I\J[«EjMIX*Lp] 

Substitute  into  the  defining  equation  for  normalised  adioints 
(39)  . 


t  45) 


.ttLn  “  .!,’pn.  .^pn  =  _a,Lp.  [  1  \]  j 


All  quantities  are  now  derived  for  getting  a  solution  of 
the  dynamic  differential  equation  by  using  Ritz  modal  vectors. 
One  thing  not  taken  up  however,  was  the  definition  of  damping  so 
as  to  give  as  sparse  a  generalized  damping  matrix  as  possible. 
The  other  topic  that  still  needs  addressing  is  data  recovery. 
These  topics  will  be  reserved  for  an  extension  to  the  basics  as 
developed  here.  Details  of  converting  this  theory  to  DMAP  coding 
has  been  published  in  a  report  entitled  "RITZ  MODES  FOR 
UNSYMMETRIC  MATRICES— DMAF  CODING  OF  THE  THEORY”  by  Thomas  B. 
Butler. 


The  coding  was  done  in  3  steps,  (1)  Fundamental  Primary 
and  Adioint  modes  were  obtained  from  a  DMAP  ALTER  to  the  Statics 
Rigid  Format.  The  listing  of  this  code  is  attached  as  Appendix 
A.  >3)  Harmonics  for  the  Primary  and  Adjoint  sets  were  coded  as 
a  pure  DMAP  approach.  The  listing  of  this  code  is  attached  as 
Appendix  B.  (3)  Orthogonalization  was  coded  as  a  pure  DMAP 
approach.  The  listing  of  this  code  is  attached  as  Appendix  C. 


A  simple  demonstration 
method  and  the  ■•-.ding.  It  was 
threshnold  value  of  Kappa  "o 


problem  was  used  to  certify  the 
run  twice  with  a  different 
exercise  a  number  of  different 
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paths.  Details  of  the  demonstration  problem  are  given  in  Appen¬ 
dix  D.  Generalized  Mass  and  Generalized  Stiffness  that  were 
produced  in  the  two  different  runs  are  given  m  Appendix  E.  One 
run  set  the  linear  independence  threshhold  Kappa  to  0.007.  Only 
the  four  fundamentals  passed  the  linear  independence  test,  so  the 
generalized  mass  and  stiffness  are  only  of  order  4x4.  Kappa 
was  deliberateJ.y  set  high  to  a  value  of  0.95  in  the  second  run  so 
as  to  admit  5  harmonics  in  addition  to  the  four  fundamentals. 
Resulting  generalized  mass  and  stiffnesses  are  of  order  9x9. 

The  generalized  mass  m  both  cases  was  practically  unity. 
Off  diagonal  terms  were  at  least  14  orders  of  magnitude  less  than 
those  on  the  diagonal.  Marked  differences  show  up  in  the  gener¬ 
alized  stiff neses  for  the  two  cases.  When  a  mathematically 
logical  value  of  Kappa  is  used  as  in  the  .00/  case,  the  terms  on 
the  diagonal  dominate  the  off-diagonal  terms,  implying  very  weak 
coupling  between  Ritz  modes.  This  weak  coupling  could  very  well 
justify  the  use  diagonal  matrices  and  so  benefit  from  a  decoupled 
solution.  When  an  improbable  value  of  Kappa  is  used  as  in  the 
0.95  case,  off-diagonal  terms  are  large.  This  observation  can 
lead  to  a  manageable  criterion  for  completeness  of  the  modes. 
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CONCLUSIONS 


The  method  is  workable.  DMAP  codina  has  been  automated 

4 

to  such  an  extent  by  using  the  device  of  bubble  vectors,  that 
it  is  useable  for  analyses  m  its  present  form.  This  feasibility 
study  demonstrates  that  the  Ritz  Method  is  so  compelling  as  to 
warrant  coding  its  modules  m  FORTRAN  and  organizing  the  result¬ 
ing  coding  into  a  new  Rigid  Format. 

Even  though  this  Ritz  technique  was  developed  for  unsym- 
tnetnc  stiffness  mati.ces,  it  offers  advantages  to  problems  with 
symmetric  stiffnesses.  If  used  for  the  symmetric  case  the  solu¬ 
tion  would  be  simplified  to  one  set  of  modes,  becaus  the  adioint 
would  be  the  same  as  the  primary.  Its  advantage  in  either  type 
of  symmetry  over  a  classical  eigenvalue  modal  expansion  is  chat 
information  density  per  Ritz  mode  is  far  richer  than  per  eigen¬ 
value  mode;  thus  far  fewer  modes  would  be  needed  for  the  same 
accuracy  and  every  mode  would  actively  participate  m  the  re¬ 
sponse.  Considerable  economy  can  be  realized  in  adapting  Ritz 
vectors  for  modal  solutions.  This  new  Ritz  capability  now  makes 
NASTRAN  even  more  powerful  than  betore. 


4.  Butler,  T.  <3.  and  Famidi,  F.  R.  "Bubble  Vector  in  Automatic 
Merging",  Proceedings  •_!  the  Fifteenth  NASTRAN  Colloquium,  19U7 
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APPENDIX  A 


DMAP  CODING  FOR 

PRIMARY  AND  ADJOLNT  FUNDAMENTALS 

$$  ADVISABLE  TO  INCLUDE  THIS  NASTRAN  CARD  IN  JOBS. 

$ 

$  NASTRAN  MAXFILES  =  60.  FILES  =  ( INPT, INP1 , INP2 , INP3 , INP4 ) 

$  RITZFUND. DMP  $  DMAP  ALTER  FOR  GENERATING  FUNDAMENTAL  RITZ  VECTORS  $ 

ALTER  2  $  ALTERS  FOR  1988  VERSION  OF  NASTRAN 

PARAML  CONTK/  MPRE3ENCE*/  /  /  /V.N.NOCONTK  $  CONTK  IS  A  DMAP  INPUT  $ 

$$  $  NOCONTK  =  -1  IF  CONTK  IS  MISSING  $ 

PRTPARM  /  /0/C.N, NOCONTK  $DB 

COND  ERROR4, NOCONTK  $  ABORTS  IF  USER  OMITS  CONTK. 

$$  AFTER  GP3 

ALTER  26,2b  $  REPLACES  PARAM  STATEMENT  WITH  ONE  THAT  ENABLES  MASS  GENERATION 

PAR AM  / / * ADD* / NOMGG /I/O  $  ALERTS  EMG  TO  GENERATE  MGG  $ 

ALTER  39  $  AFTER  EMA  OUTPUTS  KGGX  FOR  STIFFNESS 

ADD  CONTK, KGGX/NSKGG/  $  THIS  IS  THE  NON-SYMMETRIC  STIFFNESS. 

ALTER  45  $  AFTER  EMA  OUTPUTS  MGG 

PURGE  MNN.MFF.MAA/ NOMGG  $ 

ALTER  61,61  $  DON'T  PURGE  OG. 

PURGE  KRR , KLR , OR , DM/ REACT/GM/MFCF1 /GO ,K00 , LOO , PO , OUUV/ OMIT/ PS , 

KFS.KSS/ SINGLE  $ 

ALTER  62,62  $  ADD  MGG  TO  EOUIV 

EOUIV  KGG , KNN / MPCF1 / MGG , MNN / MPCF 1  $ 

ALTER  65,69  $  REPLACE  MCE 2  &  SCE1  WITH  NON-SYM  OPN'S 
VEC  USET/GNVEC/*G*/*M*/*N*  $  1 ' S  ON  N 

PARTN  KGG.GNVEC,  / KMM , KNM , KMN , KNNBAR / - 1  $  -1  MEANS  THAT  GNVEC  IS  USED 
$$  FOR  BOTH  ROW  AND  COL  PARTNG ,  BUT  DOES  NOT  MEAN  THAT  KGG  IS  SYMMETRIC 
MPYAD  KNM,GM,KNNBAR/KNNl/0/+i/ +1  $ 

MPYAD  GM.KMN.KNN1/KNN2/+1/+1/+1  $ 
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MPY3  GM , KMM , KNN2 / KNN / 0  $ 

MCE2  USET.GM,  ,MGG,  ,  /KWASTE.MNN,  ,  $ 

LABEL  LBL2  $ 

EQUIV  KNN , KFF/ S INGLE / MNN , MFF / S INGLE  $ 

COND  LBL3, SINGLE  $ 

VEC  USET/NFVEC/*N*/*F*/*SA  $  l'S  ON  S 

PARTN  KNN , NFVEC ,  /KFF,KSF,KFS ,KSS/-1  $ 

SCE1  USET,  ,MNN,  ,  /  ,  ,  ,MFF,  ,  $ 

ALTER  71,71  $  ADD  MFF  TO  EQUIV 

EQUIV  KFF, KAA/ OMIT/ MFF, MAA/ OMIT  $ 

ALTER  73,82  $  REPLACE  SMP1 ,RBMG1 ,RBMG2 ,RBMG3  WITH  UNSYM  OPN'S 
VEC  USET/FAVEC/afa/aaa/aoa  $ 

PARTN  KFF,FAVEC,  /KAABAR,KOA.KAO.KOO/ -1  $ 

DFCOMP  KOO/KOL ,KOU/ 0/ 0/3 ,N ,KOMIN/S ,N ,KODET/S ,N , KOPWR/ S ,N , DOSING  $  UNSYM 

$$  DECOMP  OF  KOO 

FBS  KOL.KOU,KOA/GO/Q/-1  $ 

MPYAD  KAO ,GO ,KAABAR/ KAA/0/ +1 / +1  $ 

SMP2  USET, GO, MFF /MAA  $ 

LABEL  LBL5  $ 

EQUIV  KAA, KLL/ REACT/ MAA, MLL/ REACT  $ 

COND  LBL6 . REACT  $ 

VEC  USET/ALVEC/aAa/ala/ar*  $ 

PARTN  KAA,ALVEC,  /KLL,KRL,KLR,KRR/-1  $ 

RBMG1  USET.  ,MAA/  ,  ,  ,MLL ,MLR ,MRR  $ 

LABEL  LBL6  $ 

0UTPUT1 ,  ,,,,/  / -1/4  $  SET  THE  DEFAULT  LABEL 

OUTPUT1  MLL, KLL,,  ,/  /0  /4  $  FOR  0RTH0G0NALI2ATI0N  AND  FINAL  CHECK 
DECOMP  KLL/LLL .ULL/O/O/S ,N .KLMIN/S ,N ,KLDET/S ,N,KLPWR/S ,N .KLSING  $ 

COND  LBL7 , REACT  $ 

FBS  LLL,ULL,KLR/DM/0/-l  $ 

MPYAD  KRL ,DM,KRR/X/0/+l/+l  $ 

DECOMP  X/XL , XU/ 0/0/S ,N,XMIN/S ,N ,XDEx / S ,N , XPWR/S ,N ,XSING  S 
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DECOMP  KRR /KRLL , KRUU /  0  /  0  /  3 ,  N , KRMIN /  S ,  N , KRLET/  S ,N,KRPWR/S ,N,KRS1NG  $ 

PARAMR  / /C,N,DIV/  /  /  /V,N,RBEPS/V,N,XDET/V,N.KRDET  $ 

PRTPARM  / /O/C ,N ,RBEPS  $$  RIGID  BODY  TRANSFORMATION  CHECK 
LABEL  LBL7  $ 

3$USER  INPUT  =  CONTK,  A  matrix  of  control  properties  of  the  same  order  as  KLL. 
=  SCVEC,  A  vector  of  a  leading  1  followed  by  zeroes  of  order  equal  to 
the  number  of  loading  subcases. 

=  SCADJ,  A  vector  of  leading  zeroes  followed  by  a  trailing  1  of  order 
equal  to  the  number  of  loadtnu  subcases. 

--  KAPPA,  A  real  double  precision  parameter  for  setting  the  toletance  of 
the  cosine  linear  independence  check. 

=  MODSPEC,  A  parameter  for  setting  the  integer  maximum  of  harmonics 
to  be  generated. 

=  LONGONE,  A  Vector  of  ones  whose  length  is  greater  than  twice  the 
number  of  subcases  times  MODSPEC  plus  one.  L=  2(30(1  +  MODSPEC) 
$+++++++++++++++++++++++++++++++■++++++++ 

FBS  LLL , ULL , MLL / SOLP  $  INERTIA  COEFFICIENT  FOR  HARMONIC  RITZ  P  VECTORS 

$$  PER  EQUATION  (15) 

$  INTRODUCE  THE  SOL'N  OF  THE  TRANSPOSE  OF  KLL  TO  DEVELOP  INVERSE  VECTORS 
TRNSP  KLL/KLLT/  $ 

DECOMP  KLLT/TLLL , TULL/O/O  $ 

FBS  TLLL. TULL. MLL /SOLA  $  INERTIA  COEFFICIENT  FOR  HARMONIC  RITZ  A  VECTORS 

$$  PER  EQUATION  (15) 


A  A 

99 


A  A 

09 


99 
9  9 
$$ 
$$ 
3$ 

A  •*. 

99 

$$ 


ALTER  88,92  $  REPLACE  SSG3  WITH  NON  SYM  OPN'S 
FBS  LLL ,ULL ,PL/ULV/  $ 

FBS  TLLL, TULL,  PL  /TULV/  $FAY  THE  PRICE  OF  DOING  FBS  ON  INVERSE  TOO 

COND  NOUOOV,OMIT  $ 

FBS  KOL ,KOU,PO/UOOV/  $ 

LABEL  NOUOOV  $ 
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$ 

$$  CALCULATION  OF  RULV  IN  CONNECTION  WITH  IRES  WILL  BE  IGNORED  BECUZ  IT  WOULD 
$$  BE  ADVISABLE  TO  DO  THIS  CHECKING  WITH  SYMMETRIC  MATRICES. 

$  ======>  USER  SHOULD  ESCHEW  USE  OF  IRES  <======= 

$  THE  EPSILON  SUB  E  CHECK  WILL  BE  DONE  IN  DBL  PREC  BECUZ  PARAMD  IS  NOW  AVAILABLE 

* 

9 

MPYAD  KLL ,ULV,PL/DELPL/0/ -1/+1  $ 

MPYAD  ULV  DEr-PL ,  /DELWORK/+1/+1  $ 

MPYAD  PL, ULV,  /ALLWORK/ +1/+1  $ 

SCALAR  DELWORK/  /l/l/  /V.N.EPSNUM  $ 

SCALAR  ALLWORK/  /l/l/  /V,N,EPSDEN  $ 

PARAMD  /  / *DIV* / V ,N , EPSUBE/ V , N , EPSNUM/ V , N , EPSDEN  $ 

PRTPARM  / /0/C, N, EPSUBE  $$  RIGID  BODY  TRANSFORMATION  CHECK 

PARAM  /  /*ADD*/V,N,  ADJCYC/ -*-1/0  $  VALUE  OF  PARAM  REMAINS  POSITIVE  DURING 

3$  PROCESSING  OF  PRIMARIES. 

COPY  LONGONE/CLONONE/  0  $ 

ADD  LONGONE,CLONONE/LONGNULL/< -1.0, 0.0)  $ 

PAP.AML  SCVEC /  /^TRAILER*' 2/V,N.VECR0  $  ROW  SIZE  IS  READ  FROM  SCVEC 

PARAML  ULV/  / ^TRAILER* / 1 / V , N , ZCOL  $  COL  SIZE  IS  READ  FROM  ULV 

PARAM  /  / *E0* / V , N , LODNO / V , N , VECRO / V , N , ZCOL  3  LODNO  IS  NEGATIVE  IF  VECRO=ZCOL 

COND  ADJLUP, LODNO  $  CONTINUE  IF  SCVEC  AND  ULV  AGREE 

JUMP  ERR0R4  3  ABORT  IF  SCVEC  AND  ULV  DON'T  AGREE 

FILE  FALCCLI=  3AVE/FALRRLI=  SAVE  3 

LABEL  ADJLUP  $  TOP  OF  LOOP  PRIOR  TO  FORMATION  OF  EITHER  PRIM  OR  ADJ  FUND 

COND  ADJTRN , ADJCYC  $  ADJCYC  INITIALLY  IS  POS  TO  GIVE  PRIORITY  TO  PRIMARY 

COPY  ULV/FLV/  0  $  FLV  WILL  REMAIN  AN  INTERNAL  DATA  BLOCK  TO  THIS  FUND  LOUP 

EQUIV  ULV,CLONFLV  $  CLONFLV  IS  INTERNAL.  EQUIV  WILL  BE  BROKEN  AT  TOP'O  LOOP 

JUMP  PRIMSEG  $  GO  AROUND  THE  AJOINT  PREP 

LABEL  ADJTRN  $ 

COPY  TULV/FLV/  0  $  FLV  IS  INTERNAL 

EOUIV  TULV, CLONFLV  $  CLONFLV  IS  INTERNAL 

LABEL  PRIMSEG  $ 
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MPYAD 
DIAGONAL 
MPYAD 
COPY 
MPYAD 
MATPRN 
COPY 
COPY 
COPY 
ADD 
COPY 
PARAM 
LABEL 
PARAM 
PARTN 
PARAM 
PARAM 
LABEL 
PARAM 
SCALAR 
PARAMD 
PAR AMD 
PARTN 
MERGE 
COND 
JUMP 
LABEL 
PARAM 
$$ 

PRTPARM 

PRTPARM 

ADD 


CLONFLV.FLV,  /FLSQ/+1  $ 

FLSQ/SCALF/ *DIAGONAL*/C ,N , -0 . 5  $ 

FLV , SCALF ,  /FMOD/  0  $  CANDIDATE  MODE  NORMALIZED  TO  EUCLID  LGTH. 
FMOD/FCLON/  0  $ 

FCLON.FMOD,  /FD0T/+1  $  MATRIX  ORDERS  =  ZCOL. 

FDOT, ,  ,  ,  /  /  $DB 

SCVEC / SCVEC I /  0  $  ROW  BUBBLE  STARTING  FROM  HEAD 
SCVEC/LIVECI/  0  $  COL  BUBBLE  STARTING  FROM  HEAD 
SCVEC /MODPARTN/  0  $  DUMMY  TO  BE  USED  FOR  SWITCHING  WITHIN  LOOPS 
L I VEC I , SCVEC / FALCCL I /  /(-I. 0,0.0)  $  NULL  BUT  SAME  LENGTH  AS  SCVEC 
FALCCL I FALRRL I  /  -1  $  NULL  SAME  LGTH  AS  SCVEC 

/  / *MPY* / V , N , ROCNT/  1  /  0  $  RESET  ROW  COUNT  TO  0  BEFORE  LI  CHECK 
LIRLUP  $  TOP  OF  ROW  PORTION  OF  LINEAR  INDEPENDENCE  LOOP 
/  /*MPY*/V,N,NORFAL/+l/ -1  $  SET  DEFAULT  TO  NEG  TO  JUMP  OVER  FAIL  BOOK 
FDOT.  .SCVEC I /  , ROCAI ,  ,  / +7/ +2  $ 

/  / *ADD*/V,N, ROCNT/ V.N, ROCNT/  1  $  ROW  COUNT  MONITOR  INCREMENTED  BY  ONE 
/  /*MPY*/ V.N, CLCNT/  i  /V.N, ROCNT  $SET  COL  COUNT=ROW  COUNT  PRIuR  LI  CHK 
LICLUP  $  TOP  OF  COLUMN  PORTION  OF  LINEAR  INDEPENDENCE  LOOP 
/  / * ADD* / V , N , CLCNT / V , N , CLCNT /  I  $  COL  COUNT  MONITOR  INCREMENTED  BY  ONE 
ROCAI/  /1/V.N, CLCNT/  /V.N.RCF  $  COSINE  TERM  TO  BE  TESTED 
/  /*ABS*/V,N.COSRCF/V,N,RCF  $GETS  ABSOLUTE  VALU  OF  COS  (ROW, COL)  TERM 
//*LE*/  /V, Y, KAPPA/ V.N, COSRCF/ // /V.N.LICHK  $LICHK  =-l  IF  KAPPA  <  COSRCi 
LIVECI,  .SCADJ/CDUM,  ,  ,/+7/frl  $  HAVE  BUBL  VEC  TO  TRACK. TRIM  TRAIL  ZER< 
CDUM ,  ,  ,  ,  , SCVEC/ LIVECJ /  +  7  /  ■*-!  $BUBBLE  INCREMENTED  AWAY  FROM  HEAD 
FALBOOK.LICHK  $  CATALOG  FAILURE  POSITION 
MORCLI  $  SKIP  AROUND  CATALOGING  IF  TEST  WAS  SUCCESSFUL 
FALBOOK  $ 

/  / ’■'MPY* / V , N , NORFAL / V , N , LICHK /  -1  $  SETS  SIGNAL  ONLY  WHEN  A  COL  FAILS. 

HAS  OPPOSITE  SIGN  TO  LICHK.  POSSIBLE  REPEATS  ARE  O.K. 

/  /O/C.N, ROCNT  $  ROW  #  OF  CANDIDATE  WHICH  FAILED  LI  TEST 
/  /O/C.N, CLCNT  $  COL  #  OF  CANDIDATE  WHICH  FAILED  LI  TEST 
FALCCL I , LIVECJ/ FALCCL J /  $  ACCOM  OF  COL  POS'NS  OF  FAILURES 
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SWITCH 

LABEL 

SWITCH 

PARAM 

COND 

REFT 

* 

LABEL 

A 

•? 

COND 
ADD 
SWITCH 
LABEL 
PARAM 
PARAM 
COND 
JUMP 
LABEL 
PAR AML 
PARAML 
PARAM 
$$ 

PRTPARM 

COND 

SWITCH 

JUMP 

LABEL 

SWITCH 

LABEL 

PARTN 

PARTN 

$$ 


FALCCLI , FALCCLJ /  /  V.N,LICHK  $ 

MORCLI  $  CONTINUE  LI  TESTING  IN  THIS  ROW  EVEN  AFTER  A  COL  FAILS 
L I VEC I , L I VEC J /  /  -1  $ 

/  / *EQ* / V , N , LICDUN /  V ,  N , CLCNT/ V , N , ZCOL  $  LICDUN  =  -1  IF  CLCNT  =  ZCOL 
NUROW, LICDUN  $  JUMP  OUTSIDE  OF  COL  LOOP  IF  C§  LAST  COL 
LICLUP, 999  $$$$$$$$$$$  END  OF  COLUMN  LOOP 

NUROW  $ 

GUDRO ,NORFAL  $  JUMP  IF  NO  COLS  IN  CURRENT  ROW  HAD  A  LI  FAILURE 
FALRRLI ,  3CVECI/FALRRLJ /  $  ACCUMULATED  ROW  POSN'S  OF  FAILED  ROWS 
FALRRLI , FALRRLJ /  /  -1  $  SWITCH  ONLY  IF  THIS  ROW  FAILED, ELSE  STAYS 
GUDRO  $ 

/  / *SUB* / V , N , ROTEST/ V , N , ZCOL / 1  $  DECREMENT  ZCOL  BY  ONE  FOR  ROTEST 
/  /*EQW,N,LIRDUN/V,N,ROCNT/V,N, ROTEST  $  LIRDUN  =  -1,IF  ROCNT=ROTEST 
KLENUP,LIRDUN  $ 

MOROW  $  GO  AROUND  CLEAN  UP  IF  MORE  ROWS  REMAIN  TO  BE  TESTED 
KLENUP  $ 

FALCCLI/  /*TRAILERW.N,6/V,N,FALCD£NS  $  DENSITY  OF  THE  COL  FAIL  VEC 
FALRRLI/  / ATRAILERVC ,N,fe/V,N ,FALRDENS  $  DENSITY  OF  THE  ROW  FAIL  VEC 
/  /  *  LEW ,  N ,  DENSLK  /  V ,  N ,  FALCDENS  /  V ,  N ,  FALRDENS  $  IF  COL  DENS  C/=  ROW  DEN. 

DENSITY  SELECTION  PARAMETER  IS  NEGATIVE 
/  / C , N , 0 / C , N , DEMSLK  $DB 

OTHER, DENSLK  $  SWITCH  MODPARTN  TO  THE  VECTOR  W  LWR  DENSITY 
FALRRLI ,MODPARTN/  /-I  $ 

MODSET  $ 

OTHER  $ 

FALCCLI, MODPARTN/  /-I  $ 

MODSET  $ 

FMOD, MODPARTN,  /PHI,  ,  ,  /+7/+2  $SURVIVORS  OF  LI  TEST 
SCALF,  , MODPARTN / PFVEC, , ,/+7/+l  $  CLUSTER  VECTOR  FOR  MERGING  FUND¬ 
AMENTAL  MODES  WITH  HARMONICS 


343 


RIT2  METHOD  FOR  TRANSIENT  RESPONSE 
IN  SYSTEMS  HAVING  UNSYMMETRIC  STIFFNESS 


MERGE  PFVEC . LONGNULL / HEADPF /  +  7  /  + 1  $PUT  PFVEC  AT  THE  HEAD  OF  A  LONG  VEC 

PARTN  LONGONE,  , HEADPF/ SHORTONE. ,, /+7/+1  $  PARTITION  LONGONE  DOWN 

PERMANENT 

MERGE  SHORTONE,,,,, LONGNULL /HEDSHORT/ +7 /+1  $APPEND  PERMANENT-SIDE  NULL  TC 

TAIL 

ADD  HEDSHORT, LONGONE/ NEGTAL/ (1.0,0.0)/(-l. 0,0.0)  $ PERMANENT- SIZE  NEG  0  TAII 

$ 

$  PROVIDE  FOR  THE  POSSIBILITY  OF  THE  CULLING  VECTOR  CONTAINING  1 ' S  IN  THE  END 
3  POSITIONS,  WHICH  WOULD  DESTROY  THE  FUNCTION  OF  THE  SHIFTING  VECTORS.  CONVERT 
$  SCALF  TO  ALL  ONES. 

9 

MERGE  SCALF . SCADJ/COLSCAL/+7/+2/+2  $  SETS  TRAILER  TO  RECTANGULAR 

TRNSP  COLSCAL/SCALFRO  $  CONVERT  COL  TO  ROW 

MPYAD  COLSCAL , SCALPRO ,  / SQUID/ 0  $SOUARE  MTX  OF  READ  D.P.  IN  PREP  FOR  DIAG 

DIAGONAL  SOUID/FULU/ +C0LUMN*/0. 0  3FULU  IS  A  CLUSTER  OF  ALL  l'S.  LGTH=FMOD 
PARTN  FULU, , MODE ARTN/FUNPART, TOSS . , / +7/ f 1/ +2/+2  $LGTH  1ST=PHI ,TOSS=COMP  WRS 

FMOD 

MERGE  FUNPART . FULU/HEDCLUS/+-7/+1  $FORM  CLUSTER  OF  FUNPART  0  VEC  HEAD 

MERGE  TOSS . FULU/HEDTOSS/+7/+1/  +-2  $F0RM  CLUSTER  OF  TOSS  0  VEC  HEAD 

ADD  FULU, HEDTOSS/TALCLUS/( 1.0,0. 0)/(-l. 0,0.0)  $  CAP  ZEROES  0  HEAD  0£ 

FUNPART 
$ 

COND  ADJWRAP,ADJCYC  $ 

$ 

COPY  PHI/PHIPI/  0  $ 

ADD  NEGTAL,  / LONGPRMI / ( - 1 . 0 , 0 . 0 )  $  TAIL  CLUSTER  =  PERMANENT  PRIMARY  MODES 

PARTN  SC VEC ,  ,HEDCLUS/ ,HMHED, , /+7/ +1  $  HEAD  SHIFTER  TRIMMED  TO  LGTH  =  PHIPI 

PARTN  SCADJ ,  ,TALCLUS/ ,HMTAL, , /+7/+1  $  TAIL  SHIFTER  TRIMMED  TO  LGTH  =  PHIPI 

JUMP  ADJKUNT  $ 

LABEL  ADJWRAP  $ 

COFY  PHI/PHIAI/  0  $ 

ADD  NEGTAL,  /LONGARMI.  ( -1. 0 .0.0)  $  TAIL  CLUSTER  =  PERMANENT  ADJOINT  MODES 
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PARTN  SCVEC ,  ,HEDCLUS/  ,ADJHED,  ,/+7/ 1-1  $  SHIPPER  TRIMMED  TO  LGTH  =  PHIAI 

PARTN  SCADJ ,  ,HEDCLUS/ ,ADJTAL ,,/+?/ H  $  SHIFTER  TRIMMED  TO  LGTH  =  PHIAI 

A 

9 

JUMP  HARMONY  $ 

A 

9 

LABEL  MOROW  $ 

PARAM  /  / *MPY* /  V ,  N , CLCNT/ 1/0  $  RESET  COLUMN  COUNT  TO  ZERO 
PARTN  SCVEC I ,  ,SCADJ/RDUM,  ,  ,  /+7/+1  $  TRIM  TRAILING  ZERO 

MERGE  RDUM,  ,  ,  ,  , SCVEC / SCVEC J/ +7 /+1  $  BUBBLE  INCREMENTED  AWAY  FROM  HEAD 

SWITCH  SCVEC I , SCVECJ /  /  -1  $ 

COPY  SCVECI/LIVECI/  0  $  COL  BUBBLE  INDEX  ALIGNED  WITH  ROW  TRACKER 
$ 

REPT  LIRLUP , 999  $ 

$ 

LABEL  ADJKUNT  $ 

PARAM  /  /*MPY*/V,N,ADJCYC/l/-i  3 

$ 

REPT  ADJLUP.999  $ 

9 

LABEL  HARMONY  3 

O 

OUTPUT1 . '  /-I/O  3  CALLS  THE  DEFAULT  LABEL.  NEEDED  FOR  REWINDS  LATER. 

OUTPUT 1  PHIP1. PHIAI, SOLP, SOLA,  /  /O/O  $MANY  CALLS  TO  BE  MADE  IN  HARMONIC  PHASE 
OUTPUT1 ,  ,,,,/  / -1/1  $  SETS  THE  DEFAULT  LABEL 
OUTPUT1  HMHED , HMTAL , ADJHED , ADJTAL ,  /  / 0 / 1  $ 

OUTPUT 1 ,  ,,,,/  / -1/2  $  SETS  THE  DEFAULT  LABEL 
OUTPUT 1  LONGNULL , LONGPRMI . LONGARMI , LONGONE ,  /  / 0/ 2  $ 

3 

ALTER  154,154  $  REMOVE  OPTIMIZATION  LOOP  TO  PREVENT  O' FLOW  OF  CEITBL 
$ 

ENDALTER  $  END  OF  ALTER  FOR  RITZ  FUNDAMENTAL  MODES 
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APPENDIX  B 


DMAP  CODING  FOR 
PRIMARY  AND  ADJOINT  HARMONICS 


APP  DMAP  $  FOR  EXECUTION  AFTER  RITZFUND.  INPUTS  FROM  INPT, INP1 , INP2 
BEGIN  $  PROGRAMMED  FOR  1988  VERSION  OF  NASTRAN.  OUTPUT  TO  INP3 
FILE  LONGPRMI = SAVE / LONG ARMI - SAVE / PGEN I =S AVE / AGEN I = SAVE / FULU = S A VE  $ 

FILE  PHHED = SAVE / PHTAL= SAVE /AHHED= SAVE /AHHED= SAVE /AHTAL= SAVE  $ 

PARAM  /  /*MFY*/V,N,PRIMCYC/+l/-i  $  CONTROL  PARAM  FOR  PRIMARY  1ST  HARMONIC 
PARAM  /  / *ADD* / V , N , ADJCYC/ +1 /  0  $  CONTROL  PARAM  FOR  ADJUNCT  1ST  HARMONIC 

PARAM  /  / * ADD* /  V ,  N , NUPGEN /  + 1  /  0  $  CONTROL  PARAM  FOR  PRIMARY  HIGHER  HARMONICS 

PARAM  /  / * ADD* / V , N , NUAGEN /  + 1  /  0  $  CONTROL  PARAM  FOR  ADJUNCT  HIGHER  HARMONICS 

PARAM  /  /*MPY*/V,N, HARMNO/  1/  0  $  SET  THE  HARMONIC  COUNTER  TO  ZERO. 

$ 


LABEL 

$ 

PARAM 

COND 

COND 

COND 

COND 

LABEL 

INPUTT1 

INPUTT1 

COPY 

EOUIV 

$$ 

INPUTT1 

INPUTT1 

INPUTT1 


HMNICGEN  $  TOP  OF  LOOP  FOR  HARMONIC  GENERATION  %%*%%%*%%%*%% 

!  !  * ADD* /  V ,  N . HARMNO /  V ,  N , HARMNO /  1  $  INCREMENT  THE  HARMONIC  COUNT  BY  ONE 
PRIMPREP , PRIMCYC  $ 

ADJPREP.ADJCYC  $ 

PHMN PREP, NUPGEN  3 
AHMNPREP , NUAGEN  3 
PRIMPREP  $ 

/  »  ,  ,  ,  /-l/O  $ 

/ HLV , , , ,  /O/O  $  READ  PHIPI  INTO  HLV 

HLV/PHIPI/  0  $  THIS  IS  THE  ROOT  FOR  THE  1ST  MERGE  OF  HARMONICS  TO  PRIM! 
HLV, TESTER/ PRIMCYC  $  HLV  AND  TESTER  ARE  INTERNAL  NAMES  OF  GENERATOR. 
LATER  ON,  EQUIV  WILL  BE  BROKEN  AT  TOP'O  LOOP. 

/ KMMTX , , , ,  /l/O  $  SKIP  PASSED  2ND  DB  AND  READ  SOLP  INTO  KMMTX 
/,  ,  ,  ,  /-l/l  $ 

/HEDVECI ,TALVECI , , ,  / 0/ 1  $READ  HMHED  INTO  HEDVECI  &  HMTAL  INTO  TALVECI 
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INPUTT1  /.  ,  .  .  /-in  $ 

INPUTT I  / PGENI , PHTAL ,  ,  ,  /  0  / 1  $READ  HMHED  INTO  PGENI; READ  HMTAL  INTO  PHTAL. 

COPY  PGENI /PHHED/  0  $  DUMMY  STATEMENT  TO  FOOL  THE  COMPILER 
ADD  HEDVECI ,TALVECI/FULU  $  FLUFF  TO  HELP  FIAT  LOCATE  THE  REAL  FULU 

JUMP  HMYBUS  $  GO  AROUND  THE  A JOINT  PREP 
LABEL  AD J PREP  $ 

INPUTT1  /,,,,/-i/0  $  REWIND  FROM  PREVIOUS  PASS  THRU  LOOP  AND  POSITION  @  1ST  DB 

INPUTT1  /HLV, , , ,  /I/O  $SKIP  PASSED  1ST  DB  AND  READ  PHIAI  INTO  HLV 

COPY  HLV/PHIAI/O  $THIS  IS  THE  ROOT  FOR  THE  1ST  MERGE  OF  HARMONICS  TO  ADJOIN: 

EOUIV  HLV , TESTER / AD J CYC  $  HLV  &  TESTER  ARE  INTERNAL  NAMES  OF  GENERATOR 

INPUTT1  /KMMTX, , , ,  /l/O  $  SKIP  PASSED  3RD  DB  AND  READ  SOLA  INTO  KMMTX 

INPUTT1  /,  ,  ,  ,  / -1/ 1  $ 

INPUTT1  /HEDVECI,TALVECI. , ,/2/l  SREAD  ADJHED  INTO  HEDVECI  &  ADJTAL  INTO  TALVEC, 
INPUTT 1  / ...  .  /-l/l  $ 

INPUTT1  /AGENI .AHTAL ,  ,  ,  / 2/1  3SKIP  2DB  U  READ  ADJHED  >  AGENI  ;READ  ADJTAL  > PHTAL . 
COPY  AGENI /AHHED/  V.N.ADJCYC  $ 

JUMP  HMYBUS  $ 

LABEL  PHMNPREP  $ 

COPY  PGENI /HLV/  0  $ 

EOUIV  PGENI, TESTER /NUPCEN  $  TESTER  IS  INTERNAL  NAME  OF  GENERATOR 

INPUTT1  / _  /-i/0  $  REWIND  FROM  PREVIOUS  PASS  THRU  LOOP  AND  POSITION  0  1ST  DI 

INPUTT1  /KMMTX _  /2/0  $  SKIP  PASSED  1ST  2  DB'S  AND  READ  SOLP  INTO  KMMTX 

EQUIV  PHHED, HEDVECI /NUPGEN/PHTAL ,TALVECI/NUPGEN  $ 

JUMP  HMYBUS  $ 

LABEL  AHMNPREP  $ 

COPY  AGENI /HLV/  0  $ 

EOUIV  AGENI , TESTER /NUAGEN  $  TESTER  IS  INTERNAL  NAME  OF  GENERATOR 

INPUTT1  / ....  /-I/O  $  REWIND  FROM  PREVIOUS  PASS  THRU  LOOP  AND  POSITION  0  1ST  Di 
INPUTT1  /KMMTX,,,,  /3/0  $  SKIP  PASSED  1ST  3  DB'S  AND  READ  SOLA  INTO  KMMTX 
EOUIV  AHHED , HEDVEC I / NUAGEN / AHTAL , TAL VEC I / NUAGEN  $ 

LAEEL  HMYBUS  $ 
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PARAM  /  /*MPY*/V,N , INITIAL /+1/ -1  $  NEWLY  GENERATED  CANDIDATE  GOING  TO 
$$  INITIAL  TEST.  SET  TO  -1. 

MPYAD  KMMTX , HLV ,  /UHC/0/1/0/2  $  CANDIDATES  OF  THE  INERTIAL  RESPONSES 

PURGE  KMMTX  $ 

COPY  UHC/CLONUHC/  0  $ 

MPYAD  CLONUHC,UHC,  /UHCSQ/  +1/+1/0/2  $ 

DIAGONAL  UHCSQ / SCALH/ ^DIAGONAL* / - 0 . 5  $  VECTOR  OF  EUCLIDEAN  LENGTHS. 

MPYAD  UHC, SCALH,  /PHIHC/0/ 1/0/2  $  MATRIX  OF  CANDIDATE  FIRST  HARMONIC  MODES. 
COPY  PHIHC/CANDIDAT/  0  $  USE  GENERALISED  LOOP  NAMES 

$$ 

LABEL  LIPREP  $  TOP  OF  LOOP  FOR  LINEAR  INDEPENDENCE  CHECKING  %%%%%%%%%%%%% 
PARAM  /  /*MPY*/V,N,RFALNO/l/-l  $  SET  DEFAULT  TO  NEGATIVE. 

3$ 

MPYAD  CAND I  DAT,  TESTER,  /CVST/  +1/H/0/2  $  HARMONICS  AGAINST  THE  GENERATORS. 

MATPRN  CVST,,,,/  /  $ 

COND  RECTO , INITIAL  3  SUBSTITUTE  A  REDUCED  FULU  IF  REMNANT  ;  GENERATOR 
DIAGONAL  CVST/ FULU/ +COLUMN*/ 0.0  $ALL  ONE  VEC  FOR  HARM  VS  HARM  (CVST  IS  SQUARE) 
LABEL  RECTO  $ 

EQUIV  HLV, TESTER /MODS PEC  $ BREAK  EQUIV  W  TESTER 

EQUIV  PGENI, TESTER /MODSPEC/AGEN I, TESTER /MODSPEC  $ BREAK  EQUIV  W  TESTER 

COPY  HEDVECI/HMROWI/  0  $  ROW  BUBBLE  STARTING  FROM  HEAD 

ADD  HMROWI , HEDVEC I / FALHR I /  /(-l. 0,0.0)  $  NULL.  SAME  LENGTH  AS  HEDVECI 

COPY  FALHRI / FALHC I /  0  $  NULL.  SAME  LENGTH  AS  HEDVECI 

PARAM  /  /*MPYA/V,N,CLKNT/  1/  0  $  RESET  COL  COUNT  TO  0  BEFORE  LI  CHECK 

PARAM  /  / *MPY* / V , N , ROKNT/  1/  0  $  RESET  ROW  COUNT  TO  0  BEFORE  LI  CHECK 

PARAML  CVST//*TRAILER*/2/V,N,HR0W  $  ROWS  IN  CVST 

COND  RECTT, INITIAL  $  JUMP  IF  ON  RECTANGULAR  CYCLE 

PARAM  /  /*SUB*/V,N,HR0W/V,N,HR0W/1  $  REDUCE  ROW  TEST  VALUE  I  FOR  TRIANGLE 
LABEL  RECTT  $ 

PARAML  CVST//*TRAILER*/1/V,N,HC0L  $  COLS  IN  CVST 
$ 

LABEL  HLIRLUP  $  TOP  OF  ROW  PORTION  OF  LINEAR  INDEPENDENCE  CHECK  %%%%%%%%%%% 
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$ 

COPY  HEDVECI/HMCOLI/  0  $  COL  BUBBLE  STARTING  FROM  HEAD 

PARTN  CVST,  ,HMROWI/  ,ROCH,  ,  Z+7/+2  $ 

PARAM  /  / *ADD* / V > N , ROKNT/ V , N , ROKNT/  1  $  ROW  COUNT  MONITOR  INCREMENTED  BY  ONE 
COND  RECTI , INITIAL  $ 

PARAM  /  / *MPY * / V , N , CLKNT/ 1  /  V ,  N , ROKNT  $  SET  COL  COUNT=ROW  COUNT  IF  TRIANGLE 
LABEL  RECTI  $ 


LABEL 


HLICLUP  $  TOP  OF  COLUMN  PORTION  OF  LI  LOOP 


PARAM  /  / *ABi>/V,N, CLKNT/ V,N, CLKNT/  1  $  INCREMENT  THE  COLUMN  COUNT 
SCALAR  ROCH/  /1/V,N, CLKNT/  /V,N,RCH  $  RCH  IS  DBL  PREC  FETCH  OF  COSINE 
$$  TERM  IN  ROW  POSITION  INDEXED  BY  THE  CONSTANT  PARAMETER  '1'  AND  IN  THE  COL 
$$  POSITION  INDEXED  BY  THE  VARIABLE  PARAMETER  CLKNT. 

P  \R  AMD  '  /*ABSWV,N,COSRCH/V,N,RCH  $  GETS  ABS.  VAL.  OF  COS  (ROW,  COL'  TERM 

PAR  AMD  /  /ALF*/  'V,Y,KAPPA/V,N,COSRCH/  /  /  /V,N,L-tHZK  $ 

COND  CATALOG, LIHZK  $  GO  TO  CATALOGING  IF  LIHZK  IS  NEGATIVE 
JUMP  MORHCOL  $  JUMP  TO  MORE  COL  PROCESSING  IF  TEST  PASSED 
LABEL  CATALOG  $ 

CONL  RECY2 , INITIAL  $ 

PARAM  /  / AMPY a / V , N , RFALNO / V , N , L IHZK /  -1  $  SETS  SIGNAL  ONL7  WHEN  A  COL  FAILS. 
$4>  RFALNO  TAKES  ON  OPPOSITE  SIGN  TO  LInZK.  REPEATS  ARF.  OK. 

LABEL  RECT2  $ 

PRTPARM  /  / 0 ,  C  .N, ROKNT  3  ROW  #  OF  CANDIDATE  TERM  WHICH  FAILED  IT  TaST 
PRTPARM  /  /0/C,N, CLKNT  $  COL  #  OF  CANDIDATE  TERM  WHICH  FAILED  LI  TEST 
COND  RECT3,l-NITI?Li  $ 

ADD  FALHCI ,HMCOLI /FALHCJ/  $  ACCUMULATION  OF  COL  FOS'NS  OF  FAIT  ORES 

SWITCH  FALHC I , FALHC J /  /V,N, LIHZK  $ 


A 


9 
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LABEL  MORHCOL  $  CONTINUE  LI  TESTING  IN  THIS  ROW  EVEN  AFTER  A  COL  FAILS 
$ 

PARAM  /  /*EQ*/V,N,LICDON/V,N,CLKNT/V,N,HCOL  $  LICDON  =  -I  IF  CLKNT  =  HCOL 

COND  GNROW, LICDON  $  JUMP  OUTSIDE  OF  COL  LOOP  IF  @  LAST  COL. 

PARTN  HMCOLI ,  , TALVECI/ DUMMY, ,, / +1 / +1  $  TRIM  TRAILING  ZERO 

MERGE  DUMMY,  ,  ,  ,  ,HEDVECI/HMCOLJ/+7/+l  $  BUBBLE  INCREMENTED  AWAY  FROM  HEAD 
SWITCH  HMCOLI, HMCOLJ/  /  -1  $ 

REPT  HLICLUP,999  $  $$$$$$$$$$$$$$$  END  OF  COLUMN  LOOP 

$ 

LABEL  GNROW  $  CONSIDER  TESTING  ANOTHER  ROW 
$ 

COND  GODRO ,RFALNO  $  JUMP  IF  NO  COLS  IN  CURRENT  ROW  HAD  A  Li  FAILURE 
LABEL  RECT3  $  CATALOG  ROW  FAILURE 

ADD  FALHRI ,  HMROWI / FALHR J /  $  ACCUMULATED  ROW  P03  NS  OF  FAILED  ROWS 

SWITCH  FALHR I, FALHR J/  /  -1  $  SWITCH  ONLY  IF  THIS  ROW  FAILED,  ELSE  STAYS 

COND  RECT4, INITIAL  $  BYPASS  IF  ON  RECTANGULAR  ROUTE 
PARAM  /  /*MPY*/V,N,RFALNO/V,N,RFALNO/-l  $  RESET  TO  NEGATIVE. 

LAEEL  RECT4  $ 

$ 

LABEL  GODRO  $ 

$ 

PARAM  /  / *EQ* / V , N , LIRDON/ V , N , ROKNT/ V , N , HROW  $  LIRDON  =  -1  IF  ROKNT  =  HROW 

COND  CLENUP, LIRDON  $  JUMP  OUT  OF  LI  CHECKING  IF  MTX  IS  COMPLETELY  EXAMINED 

PARAM  /  /*MPY*/V,N, CLKNT/ 1/0  $  RESET  COLUMN  COUNT  TO  ZERO 
FARTN  HMROWI,  , TALVECI /DUMMY, , , /+7/+1  $  TRIM  TRAILING  ZERO 
MERGE  DUMMY,,,,, HEDVECI/HMROWJ/+7/+1  $BUBBLE  INCREMENTED  AWAY  FROM  HEAD 

SWITCH  HMROWI, HMROWJ/  /-I  $ 

$ 

REPT  HLIRLUP , 999  $  END  OF  ROW  PORTION  OF  LINEAR  INDEPENDENCE  LOOP%%%%%%%%% 

? 
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LABEL  CLENUP  $ 

$ 

COND  RECT5 , INITIAL  $ 

PARAML  FALHCI/  /*TRAILER*/C,N,6/V,N,DENSFALC  $  DENSITY  OF  THE  COL  FAIL  VEC 

PARAML  FALHRI/  / ^TRAILER* /  C ,  N ,  6  /  V ,  N , DENSFALR  $  DENSITY  OF  THE  ROW  FAIL  VEC 

PARAM  /  /*LE*/V,N,SLKDENS  / V, N,DENSFALC/V,N , DENSFALR  $  IF  COL  DENS 
$$  </  =  ROW  DENS,  THE  DENSITY  SELECTION  PARAMETER  IS  NEGATIVE. 

COND  UTHER , SLKDENS  $SET  MODEPART  TO  THE  VECTOR  WITH  LWR  DENSITY 
LABEL  RECT5  $ 

COPY  FALHRI /MODEPART/  0  $ 

JUMP  MODESET  $ 

LABEL  UTHER  $ 

COPY  FALHCI /MODEPART/  0  $ 

LABEL  MODESET  $ 

PARAML  MODEPART/  /*TRAILER*/C,N,6/V,N,M0DENSY  $  DENSITY  OF  MODEPART 
PRTPARM  /  /0/C ,N,MODENSY  $ 

PARAM  /  / *GE*/V,N, FILLED/ V,N,MODENSY/ 10000  $  FILLED=-1  IF  MODEPART  IS  FULL 
COND  FOLD, FILLED  $ 

JUMP  FLEDGE  $ 

LABEL  FOLD  $  SAVE  AND  GO 

PARAM  /  /*GT*/V,N,SUMHUM/V,N,HARMNO/2  $  SUMHUM=-1  IF  1ST  HARMS  OF  P  ii  . 

PASSED 

PRTPARM  /  /0/C,N,SUMHUM  $ 

COND  ORTHOG , SUMHUM  $  IF  1ST  HARMS  FAIL  RESTORE  ORIGINAL  NAMES  TO  OUTPUT 
INPUTT1  /,  ,  ,  ,  /-l/O  $ 

INPUTT1  /PHIPI ,PHIAI , , , /0/0  $  FUNDS  W/O  HARMONICS 
INPUTT1  /,  ,  ,  ,  /-l/l  $ 

INPUTT1  /HEADPHI ,TAILPHI , , , / 0 / 1  $ TRACKERS  W/O  HMNIC.HMHED=HEADPHI . HMTAL=TAILPH, 
JUMP  N0BI2NEZ  $  COPY  OUT  AS  THEY  CAME  IN 
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LAEEL  FLEDGE  $ 

PARTN  CANDIDAT ,MODEPART , / REMNANT , , , / +7 / +2  $SURVIVORS  OF  LI  TEST 

$$  PROVIDE  FOR  THE  POSSIBILITY  OF  THE  CULLING  VECTOR  CONTAINING  1 ' S  IN  THE 
$$  ENDS,  WHICH  WOULD  DESTROY  THE  SHIFTING  VECTORS.  CONVERT  SCALH  TO  ALL  ONES. 
COND  RECT6, INITIAL  $ 

JUMP  TRIA6  $ 

LABEL  RECT6  $ 

MERGE  SCALH,,,,,TALVECI/COLSCAL/+7/+2/+2  $  SETS  TRAILER  TO  RECTANGULAR 
TRNSP  COLSCAL/SCALPRO  $  CONVERT  COL  TO  ROW 

MPYAD  COLSCAL , SCALPRO ,  /SQUID/ 0  $  SQAURE  MTX  OF  REAL  S.P.  IN  PREP  FOR  DIAG 
DIAGONAL  SQUID/FULU/*COLUMN*/0.0  $FULU  IS  A  CLUSTER  OF  ALL  ONES  LGTH=CANDIDAT 
LABEL  TRIAS  $ 

PARTN  FULU, ,M0DEPART/HMYPART,T03S , ,/ 7/1/2/2  $1’S.LGTH  1ST  -REMNANT. TOSS=COMFI 

MERGE  HMYPART, , , , ,FULU/HEDCLUS/*7/+l/2  $FORM  CLUSTER  OF  HMYPART  @  VEC  HEAD 
PARTN  HEDVECI , ,HEDCLUS/ ,HEDVECJ, ,/7/l/2/2  $NU  SHIFTER  HAS  LGTH=REMNANT 
MERGE  TOSS,,,,, FULU/HEDTOSS/ 7/1/2  $FORM  CLUSTER  OF  TOSS  0  VEC  HEAD 

ADD  FULU,HEDTOSS/TALCLUS/< 1. 0,0.0) /( -1.0,0. 0)  $CAP  ZEROES  0  HEAD  OF  HMYPART 

PARTN  TALVECI , ,TALCLUS / ,TALVECJ ,,/7/l/2/2  SNU  SHIFTER  HAS  LGTH= REMNANT 
SWITCH  HZDVECi ,HEDVFCJ /  /  -1  $ 

SWITCH  TALVECI ,TALVECJ /  /  -1  $ 

PRTPARM  ,  /0/C,N, INITIAL  $ 

COND  TEST2, INITIAL  $  If  INITIAL  IS  NEGATIVE  GO  TO  2nd  LI  TEST 

JUMF  DEPOT  $ READY  FOR  MERGING  AND  GENERATING  (l.ADJ  2.NU  PHMNY  3.NU  AHMNY ) 

LABEL  TEST2  $ 

$Test  whether  one  or  less  columns  of  REMNANT  are  left.  SET  PARAMETER  IF  SO. 

PAR AML  REMNANT/  /*TRAILER*/1/V,N,REMC0L  $ 

PARAM  /  / ALE* /V,N, SALVAGE/ V,N,REMC0L/1  $ 

COND  DEPOT, SALVAGE  $ 

SWITCH  REMNANT, CANDIDAT/  /V,N, INITIAL  $ 

COPY  CANDIDAT/TESTER/V,N, INITIAL  $ 

PARAM  /  /*MPY*/V,N,INITIAL/V,N, INITIAL/  -1  $ 

REPT  LIPREP,!  $  MAKE  A  2ND  PASS  FOR  THF  LI  TFSTS  ON  HARMONICS  ALONE. 
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$ 

LABEL 

COND 

JUMP 

LABEL 

INPUTT1 

INPUTT1 

EQUIV 

JUMP 

LABEL 

COND 

JUMP 

LABEL 

INPUTT1 

INPUTT1 

EQUIV 

JUMP 

LABEL 

COND 

JUMP 

LABEL 

EQUIV 

JUMP 

LABEL 

COND 

JUMP 

LAEEL 

EQUIV 

LABEL 

INPUTT 1 

INPUTT I 

INPUTT1 


DEPOT  $  STAGING  POINT. WRAPUP. MERGE. HARMONIC  GENERATION. 
QUIV1 ,PRIMCYC  $ 

CHKADJ  $ 

QUIV1  $ 

I  ,  r  ,  .  !~H2  $ 

/LONGPRMI , , , ,  / 1/2  $SKIP  1  DB  &  READ  IN  LONGPRMI 
LONGPRMI , LONGRMI / PRIMCYC / PHIP I , PHI I / PR IMCYC  $ 

MERGBUS  $ 

CHKADJ  $ 

QUIV2 , ADJCYC  $ 

CHKPGEN  $ 

QUIV2  $ 

/ 1  >  #  t  <  - 1 '  2  $ 

/LONGARMI,,,,  / 2 / 2  $SKIP  2  DB  &  READ  IN  LONGARMI 
LONGARMI, LONGRMI / ADJCYC / PHI AI, PHI I /ADJCYC  $ 

MERGBUS  $ 

CHKPGEN  $ 

QUIV3 ,NUPGEN  $ 

CHKAGEN  $ 

QUIV3  $ 

LONGPRMI , LONGRMI /NUPGEN/ PHIPI , PHI I /NUPGEN  $ 

MERGBUS  $ 

CHKAGEN  $ 

QUIV4 ,NUAGEN  $ 

MERGBUS  $ 

QUIV4  $ 

LONGARMI , LONGRMI / NUAGEN / PH I A I , PHI I / NUAGEN  $ 

MERGBUS  $ 

/,  ,  ,  ,  1-112  $ 

/LONGNULL, , , ,/0/2  $READ  IN  LONGNULL 
/LONGONE, , , ,/2/2  $  SKIP  2  DB  &  READ  IN  LONGONE 
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MERGE  HMYPART, , , , , LONGNULL/ LHRMHED/ +7/ +1  $  INCREMENT  =  LENGTH  OF  NEW  HARMONIC 
PARTN  LONGONE,  , LHRMHED / DUMMY ,  , ,  /  +  7  /  + 1  $  PARTITION  LONCONE  DOWN  BY  HARMONIC 
MERGE  DUMMY, , , , ,LONGNULL/HEDSHRTH/+7/+l  $ APPEND  HARMONIC-SIZE  NULL  TO  TAIL 
ADD  LONGONE, HEDSHRTH/LHRMTAL/  /< -1.0, 0.0)  $HARMONIC-SIZE  CLUSTER  0  TAIL 

PARTN  LONGRMI , , LHRMHED /DUMMY, , , /+7/+1  $TRIM  A  HARMONIC  INCREMENT  OF  ZEROES 
$$  FROM  THE  HEAD  OF  LONGRMI. 

MERGE  DUMMY, ,,, ,LHRMTAL/BBLRM/+7/+l  $PLUG  A  HARMONIC  INCREMENT  OF  ZEROES 
$$  ONTO  THE  TAIL  OF  LONGRMI. 

ADD  BBLRM , LHRMTAL / LONGRM J /  $  CLUSTER =NUHARM  INC  +  ACCEPTED 

PARTN  LHRMTAL, , LONGRM J/  ,TRIMRM, , /+7/+1  $  THIS  IS  THE  PARTITIONING  VECTOR 
$$  NEEDED  FOR  COMBINING  THE  HARMONIC  TO  THE  MATRIX  OF  ACCEPTED  MODES 

$Test  whether  one  or  less  columns  of  REMNANT  are  left.  SET  PARAMETER  IF  SO. 

$ 

PARAML  REMNANT/  /*TRAILER*/l/V,N,REMCOL  $ 

MERGE  PHI  I ,  , REMNANT,  ,TRIMRM,/PHIJ/  +  7/ 4-2  $  MERGED!! 

SWITCH  LONGRMJ , LONGPRMI /  /V,N,PRIMCYC  $ 

SWITCH  LONGRMJ, LONGPRMI/  /V,N,NUPGEN  $ 

SWITCH  LONGRMJ, LONGARMI/  /V,N,ADJCYC  3 

SWITCH  LONGRMJ, LONGARMI/  / V , N , NUAGEN  $ 

SWITCH  PHIJ ,PHIPI/  /V,N,FRIMCYC  $ 

SWITCH  PHIJ ,PHIP1/  / V,N ,NUPGEN  $ 

SWITCH  PHIJ ,FHIAI /  /V,N,ADJCYC  $ 

SWITCH  PHIJ ,PHIAI/  /V,N, NUAGEN  $ 

SWITCH  HEDVECI ,PHHED/  /V,N,PRIMCYC  $ 

SWITCH  HEDVEC I , AHHED /  /V,N,ADJCYC  $ 

SWITCH  HEDVEC I, PHHED/  /V,N,NUFGEN  $ 

SWITCH  HEDVEC I, AHHED/  /V,N, NUAGEN  $ 

SWITCH  TALVEC I , PHTAL /  /V,N,PRIMCYC  $ 

SWITCH  TALVEC I, AHTAL/  /V,N,ADJCYC  $ 

SWITCH  TALVEC I, PHTAL/  /V,N,NUPGEN  $ 

SWITCH  TALVEC I, AHTAL/  /V,N, NUAGEN  $ 

$ 
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PARAM  / / *EO* / V , N , HARMDONE/ C , Y , MODSPEC /  V ,  N , HARMNO  $  IF  #  HARM=MODSPEC  =>DONE 

COND  ORTHOG, HARMDONE  $JUMP  OUTSIDE  HARMONIC  LOOP  IF  HARMONICS  ARE  DONE 
$ 

COND  PRIMOUT,PRIMCYC  $ 

JUMP  ADJHRMNY  $ 

LABEL  PRIMOUT  $ 

SWITCH  REMNANT, PGENI/  /V,N,PRIMCYC  $ 

PARAM  //*MPY*/V,N,PRIMCYC/V,N,PRIMCYC/  -1  $  RESET  PRIMCYC  TO  POSITIVE 
PARAM  //*MPY*/V,N,ADJCYC/+1/-1  $  ENABLE  THE  LOOP  FOR  THE  ADJOINT  1ST  HARM 
JUMP  HLOOPEND  $ 

LABEL  ADJHRMNY  $ 

COND  ADJOUT,ADJCYC  $ 

JUMP  PHMNZ  $ 

LABEL  ADJOUT  $ 

SWITCH  REMNANT, AGEN I /  /V,N,ADJCYC  3 - 

PARAM  //*MPY*/V,N,ADJCYC/V,N,ADJCYC/  -1  $  RESET  ADJCYC  TO  POSITIVE 

PARAM  /MMPY*/V,N,NUPGEN/+1/-1  $  ENABLE  THE  LOOP  FOR  THE  PRIM  HIGHER  HARM 
JUMP  HLOOPEND  $ 

LABEL  PHMNZ  $ 

COND  PHMNOUT , NUFGEN  $ 

JUMP  AHMNZ  $ 

LABEL  PHMNOUT  $ 

SWITCH  REMNANT, PGENI/  /V,N,NUPGEN  $ - 

PARAM  //*MPY*/V,N,NUPGEN/V,N,NUPGEN/  5  RESET  NUPGEN  TO  POSITIVE 
PARAM  //*MPY*/V,N,NUAGEN/+1/-1  $  ENABLE  THE  LOOP  FOR  THE  ADJ  HIGHER  HARM 
JUMP  HLOOPEND  $ 

LABEL  AHMNZ  $ 

SWITCH  REMNANT, AGEN I /  /V,N,NUAGEN  $ - 

PARAM  //*MPY*/V,N,NUAGEN/V,N,NUAGEN/  -1  $  RESET  NUAGEN  TO  POSITIVE 
PARAM  / / *MPY*/V,N, NUPGEN/ +1/-1  $  ENABLE  THE  LOOP  FOR  THE  PRIM  HIGHER  HARM 

LABEL  HLOOPEND  $ 
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PARAM 

$$ 

$$ 

COND 

JUMP 

LABEL 

COND 

COND 

COND 

JUMP 

$ 

LABEL 

PURGE 

REPT 

$ 

LABEL 

$ 

MERGE 

PARTN 

MERGE 

ADD 

PARTN 

MERGE 

PARTN 

PARTN 

LABEL 

OUTPUT1 , 

OUTPUT1 

LABEL 

PRTPARM 

LABEL 

END  $ 


/  / *LE* /  V ,  N , TESTOVER / V , N , REMCOL / 1  $  TESTOVER  =-l  IF  REMCOL  (</=)  1 

THIS  IS  THE  EXIT  IN  CASE  FEWER  HARMONICS  PASS 
THE  LI  TEST  THAN  ARE  SPECIFIED  BY  MODSPEC 
ALTCHK, TESTOVER  $  EXIT  WHEN  HARMONICS  ARE  EXHAUSTED  PRIOR  TO  MODSPEC 
USUAL  $ 

ALTCHK  $ 

USUAL, ADJCYC  $  ADJOINT  GETS  A  CHANCE  TO  GENERATE  A  SINGLE 

ORTHOG , NUPGEN  $  PREVENT  ANOTHER  HARMONIC  TO  BE  GENERATED  FROM  A  SINGLE 

USUAL, NUAGEN  $  ADJHRM  GETS  A  CHANCE  TO  GENERATE  A  SINGLE 

ORTHOG  $ 


USUAL  $ 

KMMTX/ MODSPEC  $ 
HMNICGEN,999  $ 


END  OF  HARMONIC  GENERATOR  LOOP 


ORTHOG  $ 


PHHED ,  ,  ,  ,  ,  LONGNULL /  LONGHED1  /  +  7  /  +■  I  $**START  OF  HEADPHI  CONSTRUCTION 
LONGONE,  ,LONGHEDl/ DUMMY,  ,  ,  /+7/+I  3  LUMP  TO  MERCE  ON  HEAD 
DUMMY,  ,  ,  ,  .LONGNULL/MISSTAIL/+7/+1  $  ONE  MISSING  FROM  TAIL 
LONGONE, MISSTAIL/LONGTAL1/  /(-l. 0,0.0)  $**START  UF  TAILPHI  CONSTRUCTS! 
LONGONE,  ,  LONGP'.MI/  .DUMMY,  ,/+7/+l  $ALL  ONES  OF  LGTH= ACCEPTED  SECTORS 
DUMMY,  ,  ,  ,  , LONGNULL/ HEADER /  + 7 /+1  $HEAD  CLUSTER  OBVERSE  OF  LONGPRMI 
LONGHED1 ,  .HEADER/  .HEADPHI,  ,  /+7/+1  $  SAVE  FOR  DELIVERY  TO  ORTHOG 
LONGTAL1 ,  .LONGPRMI/  .TAILPHI,  ,  /+7/+1  $  SAVE  FOR  DELIVERY  TO  ORTHOG 
NOBIZNEZ  $  GET  OUT  WITH  OUTPUT  SAME  AS  INPUT 
,,,,/  /  —  1 / 3  $  SET  DEFAULT  LABEL 
PHIPI, HEADPHI, TAILPHI, PHIAI,  /  /0/3  $ 

PRINTOUT  $ 

//0/C,N,HARMN0  $ 

FINIS  $ 

FINISH  OF  DMAP  PROGRAM  FOR  RITZ  HARMONICS 
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APPENDIX  C 


RITZRTHG.DMP 

SELF  AND  DUO  ORTHOGONALIZATION 
NASTRAN  MAXFILES  =  60, FILES  =  (INP3,INP4> 

APP  DMAP  $  PROGRAMMED  FOR  1988  NASTRAN.  OUTPUT  TO  PUNCH  FILE. 

$$  EXECUTES  AFTER  BOTH  RITZFUND  AND  RITZHARM  TO  ORTHOGONALIZE  RITZ  MODES 
BEGIN  $  $$ORTHOG.DMP 
INPUTT1  /,  ,  ,  ,  / -1/ 3  $ 

INPUTT1  /PHIPI ,HEADPHI .TAILPHI ,PHIAI ,  /0/J  $ 

PARTN  PHIPI, HEADPHI,  /  .  ,PHI1,  $ 

COPY  PHI1/2ETA1/  0  $ 

PARTN  HEADPHI,  , TAILPHI /DUMMY,  ,  ,  7+7/ +1  $ 

MERGE  DUMMY . HEADPHI  /  BBLHI  /  +  7 / +1  $ 

PARTN  PHIPI, BBLHI.  /  ,  ,PHI2,  Z+7/+2  $ 

MPYAD  PHI1.PHI2,  /NUM/+1/-1  5. 

COPY  PHI 1 / CLONPHI 1 /  0  $ 

MPYAD  CL0NPHI1 ,PHII ,  /DEN/+1/+1  $ 

SCALAR  NUM/  / 1 / 1 /  /  /V,N,3PXNUM  $ 

SCALAR  DEN/  / 1  / 1/  /  /V,N,SFXDEN  $ 

PAR AMR  /  /+DIVC*/  /  /  /V.N,A11/V,N,SPXNUM/V,N,SPXDEN  $ 

ADD  PHI1 ,PHI2/ZETA2/V,N,A11  $  SINGLE  PREC. WON'T  TAKE  DEL  PREC ! !! 

PARTN  TAILPHI,  ,HEADPHI/DUMMD,  ,  ,,'  +  7/4-1  $ 

MERGE  DUMMD, , , , ,TAILPHI/BBLTI/+7/+l  $ 

ADD  BBLTI, TAILPHI /PTALCLUI/  $ 

PARTN  TAILPHI,  , PTALCLUI / .BUILDI ,  ,  /+7/+1  $ 

MERGE  ZETA1 ,  ,ZETA2,  , BUILDI,  /ZETAI/+7/+2  $ 

MPYAD  ZETAI, PHIPI,  /C0EFI/+1/+1  $ 

ADD  BBLHI, HEADPHI /PHEDCLUI/  $ 

PARAM  /  /*ADD*/V,N,R0WC0W/2/0  $ 

PAR AML  PHIPI/  /*TRAILER*/1/V,N,PC0L  $ 
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LABEL  ORTHLUP  $  TOP  OF  SELF  ORTHOGONALIZATION  LOOP 
PARAM  /  /*ADD*/V,N,ROWCOW/V,N,ROWCOW/l  $ 

PARTN  COEFI rPHEDCLUI ,  /  ,  ,CAI,  /+7/+2  $. 

PARTN  BBLHI ,  ,TAILPHI/DUMVEC,  ,  ,  /+7/+1  $ 

MERGE  DUMVEC,  ,  ,  ,  , HEADPH I / BBLH J /  +7/+1  $ 

PARTN  COEFI, BBLHJ,  /  ,  ,CFI,  /+7/+2  $ 

SOLVE  CAI ,CFI/AIN/-1/ -1/2  $ 

PARTN  BBLTI ,  , HEADPH I /DMY,  ,  ,  /+7/+1  $ 

MERGE  DMY,  ,  ,  ,  ,TAILPHI/BBLTJ/  +7/+1  $ 

ADD  PTALCLU I ,  BBLT J  /  PTALCLLJJ  /  $ 

PARTN  TAILPHI ,  ,PTALCLUJ/  ,BUILDJ, , /+7/+1  $ 

PARTN  PTALCLUJ,  .TAILPHI/  .UNIT,  ,  /+7/+1/  /2  $  UNIT  IS  RECTANGULAR  S. 

MERGE  AIN, UNIT,  ,  ,  ,BUILDJ/AJN/+7/+2  $ 

ADD  PHEDCLU I , BBLH J / PHEDCLU J /  $ 

PARTN  PHIPI ,PHEDCLUJ ,  /  ,  ,PHIZ,  /+7/+2  $ 

MPYAD  PHIZ ,AJN,  /ZETAK/0$ 

MERGE  ZETAI ,  ,ZETAX,  ,BUILDJ,  /ZETAJ/+7/+2  3 

MPYAD  ZETAJ, PHIPI,  /COEFJ/+1/+I  $ 

SWITCH  ZETAI, ZETAJ/  /  -1  $ 

SWITCH  BBLHI, BBLHJ/  /  -1  $ 

SWITCH  PHEDCLUI, PHEDCLU J/  /  -1  $ 

SWITCH  BBLTI, BBLTJ/  /  -1  $ 

SWITCH  PTALCLUI, PTALCLUJ/  /  -1  $ 

SWITCH  BUILDI , BUILDJ /  /  -1  $ 

SWITCH  COEFI, COEFJ/  /  -1  $ 

PARAM  /  / *EQ* / V , N , SELFDUN/ V , N , ROWCOW/ V , N , PCOL  $ 

COND  DUALORTH, SELFDUN  $ 

REPT  ORTHLUP, 9 99  $ 

LABEL  DUALORTH  $ 

COPY  ZETAI /CLONZETA/  0  $ 

MPYAD  CLONZETA, ZETAI,  /ZSQ/+1/+1  $ 

MATPRN  ZSQ , , , , / /  $ 
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$ 

$  START  OF  DUAL  ORHTOGONAL I Z ATI ON  OF  ADJOINT  MODES. 
$ 


INPUTT1 

/,  ,  ,  , / -1/4 

INPUTT1 

/MLL,KLL,,,/0/4  $ 

MPYAD 

ZETAI,MLL,  /ZEM/+1  $ 

MPYAD 

ZEM.PHIAI ,  /KOEF/O  $ 

DIAGONAL 

MLL/UNITY/*SQUARE*/0.0  $ 

SOLVE 

KOEF , UNITY / BETA/ -1/+1/+2/+2  $ 

MPYAD 

PHI AI .BETA,  / OMEGA/ 0  $ 

MPYAD 

OMEGA, MLL,  /MEGM/+1/+1  $ 

MPYAD 

MEGM.ZETAI ,  /GENMASS/O  $ 

MPYAD 

OMEGA, KLL,  /MEGK/+1/+1  $ 

MPYAD 

MEGK.ZETAI,  /GENSTIF/O  $ 

MATPRN 

GENMASS.ZETAI, OMEGA, GENSTIF,//  $ 

OUTPUTS 

ZETAI , OMEGA , GENMASS . GENSTIF , / / 0 / C , Y , N 1 =ZZZ / 

C ,Y ,N2=MEG/C ,Y,N3=MMM/C,Y,N4=KKK  $ 

END  $  FINISH  OF  ORTHOGONALIZATION  OF  RITZ  VECTORS 
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APPENDIX  E 


GENMASS  KAPPA  =  .007 


1.00000E+00 
7.33943E-25 
4.S6876E-22 
6 . 08346E-27 


-1 . 57700E-21 
1.00000E+00 
-1 . 76725E-24 
-4 . 10067E-23 


-1.75392E-21 
5 . 52286E-26 
1.00000E+00 
6.50197E-24 


-4.237  73E-26 
1 . 84410E-23 
-1 . 41962E-23 
1 . 00000E+00 


GENMASS  KAPPA  =0.95 

1 . 00000E+00  -3 . 41619E-17  -2.08085E-17  -7.77767E-I7  -3.55682E-15 
6 . 80886E-17  7.19268E-16  -3.59782E-16  1.85463E-15 

-2.09800E-17  1.00000E+00  -2.66490E-16  5.34076E-15  4.56150E-17 

-1.0807  2732E-14  1.36521E-14  -1.98969E-13 

-7 . 27244E-16  3.14776E-15  1.00000E+00  1.58474E-15  6.56536E-16 

-7 . 71337E-15  -3.17466E-14  1.96339E-14  -4.29536E-14 

-6 . 40719E-18  -1.66050E-15  5.80912E-17  1.00000E+00  4.28422E-19 

1 . 45089E-15  7 . 28284E-15  -5.87202E-15  1.86094E-14 

-1 . 15957E-15  1.05575E-16  4.21965E-17  1.36209E-16  1.00000E+00 

-2 . 06182E-16  -1 . 70354E-15  4.34321E-16  -2.34621E-15 

-4 . 61736E-17  4.20176E-15  -3 . 42951E-16  1.05352E-14  5.74604E-17 

1.00000E+00  2 . 34472E-14  1.11612E-14  -1.95622E-13 

-1 . 94247E-18  -4.76531E-16  3.61424E-17  -7.44025E-16  4.46676E-18 

1.22754E-15  1.00000E+00  -1.59921E-15  2.45933E-14 

2 . 42787E-18  8.22934E-16  -2.48630E-17  1.54808E-15  -1.46353E-17 

-6.75527E-16  -7.19174E-16  1.00000E+00  -1.18324E-14 

1 . 14403E-18  -1 . 60473E-17  -1.99198E-18  6.85738E-18  -1.30097E-18 

3 . 33071E-17  -6 . 84577E-18  -9.50914E-17  1.00000E+00 
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RITC 


GENSTIF  KAPPA  =  .007 


1 . 04682E+01 
-3 . 08635E-04 
-8.90200E-04 
-8.76229E-10 


6 . 15654E-04 
4 . 61758E-02 
-5. 23407E-08 
2 . 54442E-05 


-9 . 28258E-04 
2. 74302E-08 
1. 36253E-02 
-1.91582E-05 


-2. 9833QE-10 
5.87860E-08 
-3.94594E-03 
2.57602E+01 


GENSTIF  KAPPA  =  0.95 

3 . 39196E+02  -6.69263E-01  -2.44002E-01  -9.04235E-01  -3.12387E+02 
1 . 17373E+00  2.61338E+01  -1.37057Ef00  2.05697E+01 

-1 . 08090E-02  3 . 15758E-01  -5.48427E-03  I.3I833E-01  1.07321E-02 

-1.70708E-01  ‘  S.53201E-01  6.03132E-01  -2.68652E+00 

-3 . 09520E-02  1.61339E-02  2.06822E-02  2.84852E-02  2.85713E-02 
-3 . 69205E-02  -2.37364E-01  1.00253E-01  -6.03664E-01 

-8 . 47928E-01  1.11503E+02  -8 . 23610E+00  6.49374E+02  1.19001E+00 

-8 . 02691E+02  3.80773E+02  3.22937E+02  -4.57428E+03 

-3 . 07444E+02  6.23311E-01  2.25336E-01  8.38877E-01  2.89818E+02 
-1 . 08S89E+00  -2 . 42260E+01  1.27283E+00  -1.90819E+01 

7 . 98571E-01  -1 . 04804E+02  7.74130E+00  -5.92276E+02  -1.12001E+00 

7 . 54470E+02  -3.57896E+02  -3.03535E+02  4.29948E+03 

1 . 98390E-01  2 . 15040E-02  -8.83532E-03  2.23315E-02  -1 . 85797E-01 

-2 . 80937E-02  3.86155E-01  -1.58374E-02  6.00169E-02 

6 . 36402E-02  1.95278E+00  -1.21436E-01  4 . 85570E-f-00  -5.51377E-02 

-6 . 20209E+00  6.10810E+00  5.60222E+00  -7.46195E+01 

1 . 76325E-02  -2.24893E+00  1.66211E-01  -5.93498E+00  -2.44872E-02 

7 . 57854E+00  -7.62053E+00  -6.48352E+00  9 . 22406E+01 
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MODAL  STRAIN  ENERGIES  IN  COSMIC  NASTRAN 


B.  D.  Snyder  and  V.  E.  Venknyya 
Flight  Dynamics  Laboratory 
Wright  Patterson  AFB 


SUMMARY 


A  computer  program  was  developed  to  take  a  NASTRAN  output  file  from  a  normal 
modes  analysis  and  calculate  the  modal  strain  energies  of  selected  elements.  The  FOR¬ 
TRAN  program  can  determine  the  modal  strain  energies  for  CROD,  CBAR,  CELAS, 
CTRMEM,  CQDMEM2,  and  CSHEAR  elements.  Modal  strain  energies  are  useful  in 
estimating  damping  in  structures. 


INTRODUCTION 


This  work  was  initiated  to  predict  damping  in  a  large  passively  damped  truss  structure. 
The  twelve  meter  truss  structure  is  currently  undergoing  modal  testing  in  preparation  for 
controls  experiments.  An  estimate  of  the  total  damping  in  the  structure  is  needed  fo:.*  the 
controls  experiments. 

The  starting  point  for  the  computer  program  was  the  ANALYZE  program  (ref.  l). 
First,  the  information  needed  for  the  strain  energies  was  extracted  from  a  NASTRAN 
output  file  (ref.  2).  Element  information  is  extracted  from  the  echo  of  the  bulk  data 
and  eigenvector  information  is  extracted  from  the  eigenvector  tables  for  each  mode.  The 
element  stiffness  matrices  are  formed  and  then  multiplied  by  the  appropriate  element 
eigenvector  and  its  transpose  and  divided  by  two.  The  result  is  the  element  strain  energies 
for  a  given  mode.  With  this  information,  the  modal  strain  energy  method  can  be  used 
to  predict  the  damping  in  a  viscoelasiically  damped  structure.  COSMIC  NASTRAN  can 
output  element  strain  energies  but  only  for  static  analyses.  To  predict  the  structural 
damping,  the  element  modal  strain  energies  for  a  normal  modes  analysis  have  to  be  found. 

SYMBOLS 


tvx  —  x  displacements  in  the  plane  of  the  plate  in  the  local  coordinate  system 
wy  —  y  displacements  in  the  plane  of  the  plate  in  the  local  coordinate  system 
oi,&i,ei,a2>&2»C2  =  SIX  undetermined  coefficients 

X\,  3/1,. . .  ,x3,y3  =  coordinates  of  the  3  nodes  of  the  triangle  in  the  local  coordinate 
system 


r?  =  shape  matrix 
a  =  stress  vector 
e  =  strain  vector 
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G  =  shear  me  dulus 
E  =  modulus  of  elasticity 
k  =  element  stiffness  matrix 
< f>r  =  element  eigenvector  for  the  rth  mode 


ELEMENT  FORMULATION 


As  mentioned  previously,  the  formulation  of  the  elements  comes  from  the  ANALYZE 
program.  The  element  stiffness  matrices  arc  ex  actly  the  same  as  the  COSMIC  NAS- 
TRAN  formulation  for  the  CELAS,  CBAR,  and  CROD  elements.  The  formulation  for  the 
CTRMEM  and  CQDMEM2  elements  is  slightly  different  than  COSMIC  NASTRAN.  The 
CSHEAR  formulation  is  very  different  from  the  COSMIC  NASTRAN  formulation.  The 
basis  for  the  derivation  of  the  shear  panel  is  empirical  but  accurately  constructed  finite  el¬ 
ement  models  produce  satisfactory  results.  The  modal  strain  energy  program  will  produce 
good  results  if  the  shear  panel  planform  is  as  close  to  rectangular  as  possible.  The  less  skew¬ 
ing  of  the  element,  the  better  the  results  will  be. 

The  triangular  membrane  element  used  in  this  program  is  a  constant  strain  plate 
element.  The  quadrilateral  membrane  and  shear  elements  are  constructed  of  four  (non¬ 
overlapping)  of  the  constant  strain  triangular  membrane  elements  mentioned  above.  The 
elements  are  assumed  to  be  flat  plates  which  means  the  warping  in  the  elements  is  ignored. 
The  elements  have  a  fictitious  interior  node  which  is  later  removed  by  static  condensation. 
Only  shear  energy  is  considered  in  the  stiffness  of  the  shear  element  where  the  quadrilateral 
membrane  element  considers  all  the  energy  in  the  element. 

Since  the  triangular  membrane  element  is  the  basis  for  all  the  other  plate  elements  in 
this  program,  the  derivation  will  be  given  along  with  how  these  triangle  elements  are  used 
to  formulate  the  quadrilateral  and  shear  elements.  The  linear  displacement  field  in  the 
triangular  element  can  be  represented  by 


wx  =  a\x  +  b\y  -t  c\ 


(1) 


wy  =  a2x  +  b2y  +  c2 


(2) 


or  in  matrix  form 


w 


(a\  \ 

bi 

( x  y  1  0  0  0\  cj 

\000xyl/  a2 

b2 

\c2J 


(3) 


The  six  unknown  coefficients  can  be 


uniquely  determined  by  the  six  boundary  conditions 
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at  the  nodes. 


X\ 

2/1 

1 

1 

0 

0 

0 

x2 

2/2 

1 

1 

0 

0 

0 

X3 

2/3 

1 

1 

0 

0 

0 

0 

0 

0 

1 

X\ 

Vi 

1 

0 

0 

0 

1 

x2 

y-i 

1 

0 

0 

0 

1 

xz 

2/3 

1 

The  inversion  of  the  partitioned  diagonal  matrix  involves  simply  the  inversion  of  the 
component  matrix.  The  shape  matrix  r)  is  given  by 


r/  =  x  Z' 


where  the  matrix  x  is  given  by 


and  the  Z  matrix  is  given  by 


_  f  x  y  1  0  0 

\0  0  0  x  y 


X  0 
0  X 


The  coordinate  matrix  X  is  given  by 

f*l  2/1  1  ^ 

X=  x2  y2  1  (8) 

V  x3  2/3  1  j 

From  linear  strain-displacement  relations,  the  strains  can  be  written  as 

‘■-tkt—  <9> 

-  w  =  <10> 

dwx  dwv  ,  .  . 

“  ~di  +  ~dl  ~  bl  +  Gz 

From  the  principle  of  virtual  work,  the  elements  of  the  member  stiffness  matrix  can  be 
written  as 


kij  =  Jv  crW*gW  dV  =  Jv  gW*  E  dV 


where  and  are  the  stress  and  strain  matrices  corresponding  to  the  unit  dis¬ 
placement  modes  explained  in  equation  8.  Since  the  linear  displacement  relation  implies 
constant  strain,  the  integral  in  equation  12  can  be  replaced  by  the  volume  of  the  element: 


%  =  \\x\t  Me  M 
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where  |X|  is  the  determinant  of  the  nodal  coordinate  matrix  which  represents  twice  the 
area  of  the  element  and  t  is  the  thickness  of  the  element.  Finally,  the  stiffness  matrix  of 
the  triangular  membrane  element  is  given  by 


(eW*  JS«(0 

EeW  • 

••  e(l)‘  Ee^\ 

k = \  m  < 

gW*  ¥^)  e(2)‘ 

EeW  • 

..  g(2)*  '£(  6) 

^(«>*  e¥)  e(6)‘ 

E(W  • 

•  •  g(®)‘  £e(6)  J 

(14) 


Equation  14  gives  the  formulation  for  the  stiffness  matrix  of  the  triangular  membrane  ele¬ 
ments.  What  follows,  is  how  four  of  these  triangular  elements  are  used  to  construct  quadri¬ 
lateral  membrane  and  shear  elements. 

The  stiffness  matrix  of  the  quadrilateral  membrane  element  is  determined  by  b-caking 
it  into  foiir  component  triangles.  The  fictitious  node  in  the  quadrilateral  is  located  by 
averaging  the  coordinates  of  the  four  nodes  as  follows 


Z5 


Xi  +  x2  +  x3  +  z4 
'  4 


(15) 


Vi  +  Vi  +  2/3  +  V\ 

VS  =  - 4 - 

The  stiffness  of  the  four  triangles  can  then  be  computed  by  equation  14.  Addition  of 
the  four  stiffness  matrices  gives  a  10  x  10  stiffness  matrix  with  two  degrees  of  freedom 
included  ioi  the  fifth  node.  The  force  displacement  relations  of  the  five  node  quadrilateral 
are  written  as 

Rq  =  Zq  (17) 

where  the  subscript  refers  to  the  quadrilateral  element  with  five  nodes.  Equation  17, 
partitioned  to  isolate  the  degrees  of  freedom  of  the  fifth  node  can  be  written  as 


/  j£i_\  _  /  jha _ ~i,n  \  f  fi  \ 

\  Rj,  /  \  fcn.i  I  (?u,2i  /  ^  In  > 

Equation  18  can  be  written  as  two  separate  equations 

?-i  ~  h  +  5i,ii  Zn 


(18) 


(ie) 


?-ii  —  ^ii,i  Zi  +  ku,n  In  (20) 

Since  the  fifth  node  doesn’t  actually  exist  in  the  original  model,  no  external  forces  can  be 
applied  to  this  node.  This  condition  gives 


r  — _ Tm  1  r.  m 

Zn  ~  5ii.ii  5n, i  u 

Substitution  of  equation  21  in  equation  19  gives 

?-i  =  (^i.i  —  (?ii,ii  ~h,i)  Zi 


(21) 


(22) 
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From  equation  22  the  stiffness  matrix  of  the  original  quadrilateral  membrane  element  can 
be  written  as 


k  ~  l$u  —  kin  fcjiji  hut 


(23) 


The  shear  element  is  also  composed  of  four  triangular  elements  however, 
matrices  of  the  component  triangles  are  determined  by  considering  onlj  the 
energy  (equation  13). 


kij  —  2  I-5TI  l  txyGeliy 


the  stiffness 
shear  strain 

(24) 


MODAL  STRAIN  ENERGY  PROGRAM 


The  program  starts  by  reading  in  all  the  information  it  needs  from  a  NASTRAN  output 
file  for  a  normal  modes  analysis.  As  the  program  is  set  up,  it  can  handle  1,000  of  any  one 
type  of  element  for  a  total  of  6,000  elements.  A  total  of  100  materials  can  be  specified  but 
only  isotropic  materials  specified  on  MATl  cards  are  currently  accounted  for.  The  model 
can  have  100  properties  for  any  one  element  type  for  a  total  of  600  property  cards.  Tl.  se 
limits  can  easily  be  expanded  by  changing  the  dimensions  of  the  arrays  in  the  code.  The 
CELAS  elements  (CELASl  or  CELAS2)  must  be  grounded  (fixed)  at  one  end  with  the 
other  end  connected  to  the  structure.  There  are  two  ways  to  do  this,  one  is  to  leave  the  sec¬ 
ond  grid  point  of  the  CELAS  card  and  its  component  blank  or  the  second  way  is  to  specify 
a  second  grid  point  and  component  and  then  fix  the  second  grid  point  component  with  an 
SPC  card. 


The  next  step  in  determining  the  modal  strain  energies  is  to  calculate  the  element 
stiffness  matrices.  Using  the  equations  derived  above  and  equations  for  the  CELAS,  CBAR, 
and  CROD  elements,  the  stiffness  matrices  are  generated.  After  this  the  eigenvector  for 
the  current  element  is  extracted  from  the  eigenvector  table  for  a  given  mode.  Then  ihe 
following  equation  is  used  to  determine  the  element  modal  strain  energies  for  the  given 
mode 


Element  Modal  Strain  Energy 


(25) 


The  equation  is  used  for  each  element  for  every  mode  printed  in  the  NASTRAN  normal 
modes  analysis. 


After  the  element  strain  energies  are  calculated,  they  are  printed  in  an  easy  to  read 
format.  The  modal  strain  energy  program  prints  out  the  following  quantities  for  each  mode: 
element  ID  number  (EID),  element  type  (CBAR,  CELAS,  CROD,  CTRMEM,  CSHEAR, 
oi  CQDMEM2),  element  strain  energy  (in  consistent  units),  percent  element  strain  energy 
of  the  entire  structure,  sum  of  the  total  element  strain  energy  for  each  element  type,  and 
the  total  element  strain  energy  for  the  entire  structure.  The  program  also  prints  one- 
half  the  generalized  stiffness  from  the  NASTRAN  output  file  as  a  check.  One-half  the 
generalized  stiffness  should  equal  the  total  strain  energy  for  the  entire  structure. 


APPLICATIONS 


Viscoelastic  materials  are  seeing  widespread  use  to  suppress  vibrations  in  all  types  of 
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structures.  The  ability  of  viscoelastic  materials  to  passively  damp  vibrations  in  lightweight 
structures  is  well  documented.  Modal  strain  energies  are  useful  in  estimating  the  damping 
in  this  type  of  structure.  The  approach  used  to  predict  the  modal  damping  (loss)  factors 
for  each  mode  of  the  structure  is  called  the  modal  strain  energy  method.  It  states  that 
the  ratio  of  structural  loss  factor  to  viscoelastic  material  loss  factor  for  a  given  mode  of 
vibration  can  be  estimated  as  the  ratio  of  elastic  strain  energy  in  the  viscoelastic  to  total 
elastic  strain  energy  in  the  entire  structure  when  it  deforms  into  the  particular  undamped 
mode  shape  (ref.  3).  Mathematically  this  can  be  stated  as 

fiv  y(r) 

where 

rjl  =  loss  factor  for  the  r’th  mode  of  the  composite  structure 

r)v  =  material  loss  factor  for  the  viscoelastic  material 

Vvr  =  elastic  strain  energy  stored  in  the  viscoelastic  material  when  the  structure 
deforms  in  its  r’th  undamped  mode  shape 

V/  =  elastic  strain  energy  of  the  entire  composite  structure  in  the  r’th  mode  shape 

Computing  the  undamped  mode  shapes  of  the  composite  structure  with  the  viscoelastic 
material  treated  as  if  it  were  purely  elastic  with  a  real  stillness  modulus,  the  right  hand 
side  of  equation  26  is  calculated  as 


(26) 


vi 

v>  f'Kf 

where 

<j>r  =  r’th  mode  shape  vector 

4>rg  =  subvector  formed  by  deleting  from  $  all  entries  not  corresponding  to  motion  of 
nodes  of  the  0’th  viscoelastic  element 
k0  =  element  stiffness  matrix  of  the  0’th  viscoelastic  element 
K  —  stiffness  matrix  of  the  entire  composite  structure 
n  =  number  of  viscoelastic  elements  in  the  model 


(27) 


Combining  equations  26  and  27  you  get  (ref.  4) 


Vrs  = 


£  Uvsfe  Me 


0=1 


<PrtK<t>r 


(28) 


This  equation  states  that  if  you  create  a  NASTRAN  model  of  the  damped  structure  with 
all  elements  included  except  damper  elements,  and  then  run  a  normal  modes  analysis, 
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you  have  all  the  information  needed  to  get  the  structural  loss  factor.  After  you  make  the 
NASTRAN  run,  you  run  the  output  through  the  element  modal  strain  energy  program 
which  gives  you  the  percentages  of  element  strain  energy  to  total  strain  energy  for  the  entire 
structure.  The  percentages  for  the  elements  that  actually  possess  viscoelastic  damping  are 
multiplied  by  that  particular  elements  material  loss  factor.  These  quantities  are  then 
summed  to  give  the  loss  factor  for  the  entire  structure. 

EXAMPLE  PROBLEMS 


Three  example  problems  were  used  to  demonstrate  the  ability  of  the  element  strain 
energy  program  to  accurately  output  the  element  modal  strain  energies.  The  first  problem 
is  a  rectangular  wing  box  and  it  is  shown  broken  up  into  its  numbered  elements  in  figure  1. 
The  rectangular  wing  box  consists  of  quadrilateral  membrane  elements  for  the  inboard  top 
and  bottom  skins,  triangular  membrane  elements  for  the  outboard  top  and  bottom  skins, 
bar  elements  for  the  outboard  posts,  rod  elements  for  all  other  posts,  shear  elements  for  all 
the  ribs  and  spars,  elastic  elements  provide  the  inboard  top  skin  attachment  points  with 
the  inboard  bottom  skin  points  rigidly  fixed.  The  strain  energy  outputs  for  the  second 
mode  of  this  model  are  given  in  table  I.  This  model  contains  all  the  element  types  the 
strain  energy  program  is  capable  of  handling.  Comparing  the  total  structural  strain  energy 
with  the  value  for  one-half  the  generalized  stiffness  shows  that  the  two  are  in  agreement. 

The  second  example  is  known  as  the  intermediate  complexity  wing  and  is  just  a  sim¬ 
plified  NASTRAN  model  of  the  load  carrying  portion  of  a  wing.  Shown  in  figure  2 
broken  into  its  component  elements  and  their  numbering  scheme,  is  a  depiction  of  the 
wing.  The  model  consists  of  quadrilateral  membrane  elements  for  most  of  the  top  and 
bottom  skins,  two  triangular  membrane  elements  for  the  outboard  corner  elements  on 
the  top  and  bottom  skins,  rod  elements  for  all  the  posts,  and  shear  elements  for  all 
the  ribs  and  spars.  The  inboard  top  and  bottom  skin  points  rigidly  fixed.  The  strain 
energy  program  output  for  the  first  mode  of  the  model  is  given  in  table  II.  As  you 
can  see,  the  program  accurately  produces  zero  strain  energy  in  all  the  rod  elements  for 
the  first  bending  mode  of  the  wing.  The  difference  in  the  values  for  the  total  struc¬ 
tural  strain  energy  and  one-half  the  generalized  stiffness  can  be  attributed  to  the  dif¬ 
ferent  formulations  of  the  stiffness  matrices  of  the  plate  membrane  and  shear  elements. 

The  final  example  is  a  part  of  the  Large  Space  Structures  Technology  Program  at  the 
Flight  Dynamics  Laboratory.  A  NASTRAN  model  of  the  twelve  meter  truss  structure  is 
shown  in  figure  3.  The  elements  aren’t  numbered  because  of  the  large  number  of  elements 
in  the  model.  The  model  consists  of  bar  elements  for  the  horizontal  and  vertical  elements 
and  rod  elements  for  all  the  diagonals.  The  diagonal  members  contain  the  viscoelastic 
dampers  on  *he  actual  structure.  The  model  is  supported  at  the  base  with  a  series  of 
elastic  elements.  The  strain  energy  output  for  the  second  mode  is  given  in  table  III.  This 
is  the  first  torsion  mode  of  the  truss,  so  most  of  the  strain  energy  is  in  the  diagonal 
members.  This  is  verified  by  the  modal  strain  energy  program.  The  loss  factor  for  the 
entire  structure  has  been  predicted  and  is  awaiting  test  results  for  verification. 


CONCLUDING  REMARKS 


A  FORTRAN  program  that  calculates  elemem  strain  energies  has  been  developed  and 
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verified.  This  program  gives  COSMIC  NASTRAN  a  capability  that  was  only  previously 
available  for  static  analysis.  Work  is  currently  underway  to  develop  DMAP  instructions 
to  calculate  modal  strain  energies  directly  in  NASTRAN.  With  the  ever  increasing  trend 
toward  lighter  structures,  damping  materials  will  see  increased  use  in  all  types  of  structures. 
A  simple,  accurate  method,  such  as  the  modal  strain  energy  method,  to  predict  structural 
damping  is  essential. 
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TABLE  I  -  RECTANGULAR  WING  BOX  STRAIN  ENERGIES 


MODE  2 


Element  ID 

Element  Type 

50001 

CBAR 

50002 

CBAR 

50003 

CBAR 

500 

CELAS 

502 

CELAS 

503 

CELAS 

504 

CELAS 

505 

CELAS 

506 

CELAS 

507 

CELAS 

508 

CELAS 

509 

CELAS 

50004 

CROD 

50005 

CROD 

50006 

CROD 

50007 

CROD 

OUUUO 

CROD 

50009 

CROD 

10001 

CTRMEM 

10002 

CTRMEM 

Element  Strain 

%  Strain  Energy 

Energy 

-0.4068E-06 

0.0000 

6.446 

0.2810 

-0.6010E-06 

0.0000 

0.2516 

0.0110 

0.2749E-01 

0.0012 

0.2810E-01 

0.0012 

69.68 

3.0378 

55.31 

2.4114 

50.50 

2.2015 

0.5442 

0.0237 

0.9635E-01 

0.0042 

0.1016 

0.0044 

0.0000E+00 

0.0000 

O.OOOOE+OO 

0.0000 

0.0000E+00 

0.0000 

1.088 

0.0475 

0.1827 

n  nncM 

u.uu  u*x 

0.2032 

0.0089 

117.4 

5.1190 

116.7 

5.0897 
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10011 

CTRMEM 

137.4 

5.9880 

10012 

CTRMEM 

117.8 

5.1372 

20001 

CTRMEM 

115.1 

5.0171 

20002 

CTRMEM 

119.7 

5.2185 

20011 

CTRMEM 

132.1 

5.7594 

20012 

CTRMEM 

115.9 

5.0520 

10003 

CQDMEM 

218.9 

9.5449 

10004 

CQDMEM 

166.3 

7.2488 

20003 

CQDMEM 

200.6 

8.7462 

20004 

CQDMEM 

189.0 

8.2413 

30001 

CSHEAR 

29,60 

1.2904 

30002 

CSHEAR 

88.67 

3.8657 

30003 

CSHEAR 

34.38 

1.4987 

30004 

CSHEAR 

80.61 

3.5140 

30005 

CSHEAR 

72.90 

3.1781 

30006 

CSHEAR 

28.34 

1.2355 

40001 

CSHEAR 

12.29 

0.5360 

40002 

CSHEAR 

8.467 

0.3691 

40003 

CSHEAR 

0.6263E-02 

0.0003 

40004 

CSHEAR 

3.315 

0.1445 

40005 

CSHEAR 

3.752 

0.1636 

40006 

CSHEAR 

0.9805E-05 

0.0000 

STRAIN  ENERGY  IN  CELAS  ELEMENTS  =  176.5 
STRAIN  ENERGY  IN  GEAR  ELEMENTS  =  6.446 
STRAIN  ENERGY  IN  CROD  ELEMENTS  =  1.484 
STRAIN  ENERGY  IN  CTRMEM  ELEMENTS  =  972.1 
STRAIN  ENERGY  IN  CQDMEM  ELEMENTS  =  774.9 
STRAIN  ENERGY  IN  CSHEAR  ELEMENTS  =  362.3 
TOTAL  STRAIN  ENERGY  =  2294. 

GENERALIZED  STIFFNESS/2  =  2294. 

TABLE  II  -  INTERMEDIATE  COMPLEXITY  WING  STRAIN  ENERGIES 


MODE  1 


Element  ID 

Element  Type 

Element  Strain 
Energy 

%  Strain  Energy 

120 

CROD 

0.0000E+00 

0.0000 

121 

CROD 

0.0000E+00 

0.0000 

122 

CROD 

0.0O00E+00 

0.0000 

123 

CROD 

0.0000E+00 

0.0000 

124 

CROD 

0.0000E+00 

0.0000 

125 

CROD 

0.0000E+00 

n  nnnn 

V  •  VS  V 

126 

CROD 

0.0000E+00 

0.0000 

127 

CROD 

O.OOOOE-fOO 

0.0000 

128 

CROD 

0.0000E+00 

0.0000 
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129 

CROD 

0.0000E+00 

0.0000 

130 

CROD 

0.0000E+00 

0.0000 

131 

CROD 

0.0000E+00 

0.0000 

132 

CROD 

0.0000E+00 

0.0000 

133 

CROD 

0.0000E+00 

0.0000 

134 

CROD 

0.0000E+00 

0.0000 

135 

CROD 

0.0000E+00 

0.0000 

136 

CROD 

0.0000E+00 

0.0000 

137 

CROD 

O.OOOOE+OO 

0.0000 

138 

CROD 

0.0000E+00 

0.0000 

139 

CROD 

O.OOOOE+OO 

0.0000 

140 

CROD 

O.OOOOE+OO 

0.0000 

141 

CROD 

0.0000E+00 

0.0000 

142 

CROD 

0.0000E+00 

0.0000 

143 

CROD 

0.0000E+00 

0.0000 

144 

CROD 

O.OOOOE+OO 

0.0000 

145 

CROD 

O.OOOOE+OO 

0.0000 

146 

CROD 

0.0000E+00 

0.0000 

147 

CROD 

0.0000E+00 

0.0000 

148 

CROD 

O.OOOOE+OO 

0.0000 

149 

CROD 

O.OOOOE+OO 

0.0000 

150 

CROD 

O.OOOOE+OO 

0.0000 

151 

CROD 

0.0000E+00 

0.0000 

152 

CROD 

0.0000E+00 

0.0000 

153 

CROD 

O.OOOOE+OO 

0.0000 

154 

CROD 

O.OOOOE+OO 

0.0000 

155 

CROD 

O.OOOOE+OO 

0.0000 

156 

CROD 

O.OOOOE+OO 

0.0000 

157 

CROD 

O.OOOOE+OO 

0.0000 

158 

CROD 

O.OOOOE+OO 

0.0000 

1 

CTRMEM 

0.2817E-01 

0.0046 

2 

CTRMEM 

0.2817E-01 

0.0046 

3 

CQDMEM 

0.8132E-01 

0.0131 

4 

CQDMEM 

0.8132E-01 

0.0131 

5 

CQDMEM 

0.6809E-01 

0.0110 

6 

CQDMEM 

0.6809E-01 

0.0110 

7 

CQDMEM 

0.1561 

0.0252 

8 

CQDMEM 

0.1561 

0.0252 

9 

CQDMEM 

0.6461 

0.1045 

10 

CQDMEM 

0.6461 

0.1045 

11 

CQDMEM 

0.7805 

0.1262 

12 

CQDMEM 

0.7805 

0.1262 

13 

CQDMEM 

0.7629 

0.1234 

14 

CQDMEM 

0.7629 

0.1234 

15 

CQDMEM 

0.9026 

0.1459 

16 

CQDMEM 

0.9026 

0.1459 

17 

CQDMEM 

2.573 

0.4161 

18 

CQDMEM 

2.573 

0.4161 

19 

CQDMEM 

3.169 

0.5124 

20 

CQDMEM 

3.169 

0.5124 

21 

CQDMEM 

3.299 

0.5335 

22 

CQDMEM 

3.299 

0.5335 

23 

CQDMEM 

3.306 

0.5345 

372 


24 

CQDMEM 

3.306 

0.5345 

25 

CQDMEM 

5.762 

0.9316 

26 

CQDMEM 

5.762 

0.9316 

27 

CQDMEM 

7.520 

1.2159 

28 

CQDMEM 

7.520 

1.2159 

29 

CQDMEM 

7.967 

1.2882 

30 

CQDMEM 

7.967 

1.2882 

31 

CQDMEM 

7.312 

1.1824 

32 

CQDMEM 

7.312 

1.1824 

33 

CQDMEM 

9.504 

1.5367 

34 

CQDMEM 

9.504 

1.5367 

35 

CQDMEM 

12.89 

2.0840 

36 

CQDMEM 

12.89 

2.0840 

37 

CQDMEM 

14.20 

2.2956 

38 

CQDMEM 

14.20 

2.2956 

39 

CQDMEM 

12.59 

2.0364 

40 

CQDMEM 

12.59 

2.0364 

41 

CQDMEM 

12.67 

2.0479 

42 

CQDMEM 

12.67 

2.0479 

43 

CQDMEM 

17.60 

2.8462 

44 

CQDMEM 

17.60 

2.8462 

45 

CQDMEM 

21.24 

3.4346 

46 

CQDMEM 

21.24 

3.4346 

47 

CQDMEM 

19.38 

3.1329 

48 

CQDMEM 

19.38 

3.1329 

49 

CQDMEM 

13.58 

2.1953 

50 

CQDMEM 

13.58 

2.1953 

51 

CQDMEM 

17.25 

2.7891 

52 

CQDMEM 

17.25 

2.7891 

53 

CQDMEM 

20.66 

3.3399 

54 

CQDMEM 

20.66 

3.3399 

55 

CQDMEM 

16.06 

2.5971 

56 

CQDMEM 

16.06 

2.5971 

57 

CQDMEM 

6.645 

1.0744 

58 

CQDMEM 

6.645 

1.0744 

59 

CQDMEM 

17.18 

2.7780 

60 

CQDMEM 

17.18 

2.7780 

61 

CQDMEM 

21.31 

3.4457 

62 

CQDMEM 

21.31 

3.4457 

63 

CQDMEM 

23.16 

3.7449 

64 

CQDMEM 

23.16 

3.7449 

65 

CSHEAR 

0.4318E-01 

0.0070 

66 

CSHEAR 

0.5833E-01 

0.0000 

67 

CSHEAR 

0.4419E-01 

0.0071 

68 

CSHEAR 

0.0681E-03 

0.0001 

69 

CSHEAR 

0.1559E-02 

0.0003 

70 

CSHEAR 

0.3317E-01 

0.0054 

71 

CSHEAR 

0.3689E-02 

0.0006 

72 

CSHEAR 

0.1579E-01 

0.0026 

73 

CSHEAR 

0.3236E-02 

0.0005 

74 

CSHEAR 

0.6835E-02 

0.0011 

75 

CSHEAR 

0.3295E-02 

0.0005 

76 

CSHEAR 

0.7111E-02 

0.0011 
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77 

CSHEAR 

0.3093E-02 

0.0005 

78 

CSHEAR 

0.4573E-02 

0.0007 

79 

CSHEAR 

0.2292E-02 

0.0004 

80 

CSHEAR 

0.4423E-02 

0.0007 

81 

CSHEAR 

0.3590E-02 

0.0006 

82 

CSHEAR 

0.4746E-02 

0.0008 

83 

CSHEAR 

0.1902E-02 

0.0003 

84 

CSHEAR 

0.4688E-02 

0.0008 

85 

CSHEAR 

0.7538E-02 

0.0012 

86 

CSHEAR 

0.8932E-02 

0.0014 

87 

CSHEAR 

0.3638E-02 

0.0006 

88 

CSHEAR 

0.9771E-02 

0.0016 

89 

CSHEAR 

0.9090E-01 

0.0147 

90 

CSHEAR 

0.6178E-01 

0.0100 

91 

CSHEAR 

0.4218E-01 

0.0068 

92 

CSHEAR 

0.69S3E-01 

0.0112 

93 

CSHEAR 

0.5735 

0.0927 

94 

CSHEAR 

0.3672 

0.0594 

95 

CSHEAR 

0.1479 

0.0239 

96 

CSHEAR 

0.2381 

0.0385 

97 

CSHEAR 

0.2449 

0.0396 

98 

CSHEAR 

0.4526 

0.0732 

99 

CSHEAR 

0.5576 

0.0902 

100 

CSHEAR 

0.5448 

0.0881 

101 

CSHEAR 

0.3861 

0.0624 

102 

CSHEAR 

0.8999E-01 

0.0146 

103 

CSHEAR 

0.7155 

0.1157 

104 

CSHEAR 

0.1065 

0.0172 

105 

CSHEAR 

0.8149 

0.1318 

106 

CSHEAR 

1.047 

0.1692 

107 

CSHEAR 

1.125 

0.1819 

108 

CSHEAR 

1.076 

0.1740 

109 

CSHEAR 

1.026 

0.1659 

110 

CSHEAR 

0.9453 

0.1528 

111 

CSHEAR 

1.735 

0.2805 

112 

CSHEAR 

0.5387E-01 

0.0087 

113 

CSHEAR 

0.3877 

0.0627 

114 

CSHEAR 

0.6420 

0.1038 

115 

CSHEAR 

0.7546 

0.1220 

116 

CSHEAR 

0.7662 

0.1239 

117 

CSHEAR 

0.7926 

0.1281 

118 

CSHEAR 

0.5955 

0.0963 

119 

CSHEAR 

1.297 

0.2097 

STRAIN  ENERGY  IN  CROD  ELEMENTS  =  0.0000E+00 
STRAIN  ENERGY  IN  CTRMEM  ELEMENTS  =  0.5633E-01 
STRAIN  ENERGY  IN  CQDMEM  ELEMENTS  =  600.4 
STRAIN  ENERGY  IN  CSHEAR  ELEMENTS  =  17.97 
TOTAL  STRAIN  ENERGY  =  618.5 
GENERALIZED  STIFFNESS/2  =  619.0 
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TABLE  III  -  TWELVE  METER  TRUSS  STRAIN  ENERGIES 


MODE  2 


Element  ID 

Element  Type 

101 

CBAR 

102 

CBAR 

103 

CBAR 

104 

CBAR 

106 

CBAR 

107 

CBAR 

108 

CBAR 

109 

CBAR 

111 

CBAR 

112 

CBAR 

113 

CBAR 

114 

CBAR 

116 

CBAR 

117 

CBAR 

118 

CBAR 

119 

CBAR 

120 

CBAR 

121 

CBAR 

122 

CBAR 

123 

CBAR 

125 

CBAR 

126 

CBAR 

127 

CBAR 

128 

CBAR 

130 

CBAR 

131 

CBAR 

132 

CBAR 

133 

CBAR 

135 

CBAR 

136 

CBAR 

137 

CBAR 

138 

CBAR 

139 

CBAR 

140 

CBAR 

141 

CBAR 

142 

CBAR 

144 

CBAR 

145 

CBAR 

146 

CBAR 

147 

CBAR 

149 

CBAR 

350 

CBAR 

151 

CBAR 

152 

CBAR 

154 

CBAR 

Element  Strain 

%  Strain  Energy 

Energy 

1.740 

6.0085 

1.724 

5.9537 

1.127 

3.8917 

1.155 

3.9862 

0.6792 

2.3449 

0.6611 

2.2827 

0.3441 

1.1880 

0.3522 

1.2160 

0.1476 

0.5098 

0.1436 

0.4956 

0.4434E-01 

0.1531 

0.4531E-01 

0.1564 

0.7187E-02 

0.0248 

0.6948E-02 

0.0240 

0.2278E-03 

0.0008 

0.2049E-03 

0.0007 

0.1767E-01 

0.0610 

0.5047E-02 

0.0174 

0.4326E-02 

0.0149 

0.5652E-02 

0.0195 

0.2255E-02 

0.0078 

0.3096E-02 

0.0107 

0.1182E-02 

0.0041 

0.1833E-02 

0.0063 

0.3633E-03 

0.0013 

0.6576E-03 

0.0023 

0.1058E-03 

0.0004 

0.2597E-03 

0.0009 

0.2277E-04 

0.0001 

0.3004E-04 

0.0001 

0.4012E-04 

0.0001 

0.1046E-04 

0.0000 

1.740 

6.0085 

?  724 

5.9537 

1.127 

3.8917 

1.155 

3.9862 

0.6792 

2.3449 

0.6611 

2.2827 

0.3441 

1.1880 

0.3522 

1.2160 

0.1476 

0.5098 

0.1436 

0.4956 

0.4434E-01 

0.1531 

0.4521E-01 

0.1564 

0.7187E-02 

0.0248 
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155 

CBAR 

0.6948E-02 

0.0240 

156 

CBAR 

0.2278E-03 

0.0008 

157 

CBAR 

0.2049E-03 

0.0007 

158 

CBAR 

0.1767E-01 

0.0610 

159 

CBAR 

0.5047E-02 

0.0174 

160 

CBAR 

0.4326E-02 

0.0149 

161 

CBAR 

0.5652E-02 

0.0395 

163 

CBAR 

0.2255E-02 

0.0078 

164 

CBAR 

0.3096E-02 

0.0107 

165 

CBAR 

0.1182E-02 

0.0041 

166 

CBAR 

0.1833E-02 

0.0063 

168 

CBAR 

0.3633E-03 

0.0013 

169 

CBAR 

0.6576E-03 

0.0023 

170 

CBAR 

0.1058E-03 

0.0004 

171 

CBAR 

0.2597E-03 

0.0009 

173 

CBAR 

0.2277E-04 

0.0001 

174 

CBAR 

0.3004E-04 

0.0001 

175 

CBAR 

0.4012E-04 

0.0001 

176 

CBAR 

0.1046E-04 

0.0000 

201 

CBAR 

0.1054E-03 

0.0004 

202 

CBAR 

0.9258E-03 

0.0032 

203 

CBAR 

0.6164E-03 

0.0021 

204 

CBAR 

0.6752E-03 

0.0023 

205 

CBAR 

0.5726E-03 

0.0020 

206 

CBAR 

0.5726E-03 

0.0020 

207 

CBAR 

0.5583E-03 

0.0019 

208 

CBAR 

0.5189E-03 

0.0018 

209 

CBAR 

0.4704E-03 

0.0016 

210 

CBAR 

0.3950E-03 

0.0014 

211 

CBAR 

0.3950E-03 

0.0014 

212 

CBAR 

0.3261E-03 

0.0011 

213 

CBAR 

0.2753E-03 

0.0010 

214 

CBAR 

0.2157E-03 

0.0007 

215 

CBAR 

0.1482E-03 

0.0005 

216 

CBAR 

0.1482E-03 

0.0005 

217 

CBAR 

0.8562E-04 

0.0003 

218 

CBAR 

0.4871E-04 

0.0002 

219 

CBAR 

0.1600E-04 

0.0001 

220 

CBAR 

0.8716E-05 

0.0000 

221 

CBAR 

0.1055E-03 

0.0004 

222 

CBAR 

0.9257E-03 

0.0032 

223 

CBAR 

0.6163E-03 

0.0021 

224 

CBAR 

0.8755E-03 

0.0023 

225 

CBAR 

0.5725E-03 

0.0020 

226 

CBAR 

0.5725E-03 

0.0020 

227 

CBAR 

0.5583E-03 

0.0019 

228 

CBAR 

0.5191E-03 

0.0018 

229 

CBAR 

0.4706E-03 

0.0016 

230 

CBAR 

0.3950E-03 

0.0014 

231 

CBAR 

0.3950E-03 

0.0014 

232 

CBAR 

0.3260E-03 

0.0011 

233 

CBAR 

0.2754E-03 

0.0010 

234 

CBAR 

0.2158E-03 

0.0007 
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235 

CBAR 

0.1482E-03 

O.OOC5 

236 

CBAR 

0.1482E-03 

0.0005 

237 

CBAR 

0.8558E-04 

0.0003 

238 

CBAR 

0.4871E-04 

0.0002 

239 

CBAR 

0.1596E-04 

0.0001 

240 

CBAR 

0.8653E-05 

0.0000 

241 

CBaR 

0.1054E-03 

0.0004 

242 

CBAR 

0.9258E-03 

0.0032 

243 

CBAR 

0.6164E-03 

0.0021 

244 

CBAR 

0.6752E-03 

0.0023 

245 

CBAR 

0.5726E-03 

0.0020 

246 

CBAR 

0.5725E-03 

0.0020 

247 

CBAR 

0.5583E-03 

0.0019 

248 

CBAR 

0.53  89E-03 

0.0018 

249 

CBAR 

0.4704E-03 

0.0016 

250 

CBAR 

0.3950E-03 

0.0014 

251 

CBAR 

0.395GE-03 

0.0014 

252 

CBAR 

0.326.1 E-03 

0.0011 

253 

CBAR 

0.2753E-03 

0.0010 

254 

CBAR 

0.2157E-03 

0.0007 

255 

CBAR 

0.1482E-03 

0.0005 

256 

CBAR 

0.1482E-03 

0.0005 

257 

CBAR 

0.8562E-04 

0.0003 

258 

CBAR 

0.4871E-04 

0.0002 

259 

CBAR 

0.1600E-04 

0.0001 

260 

CBAR 

0.8716E-05 

0.0000 

261 

CBAR 

0.1055E-03 

0.0004 

262 

CBAR 

0.9257E-03 

0.0032 

263 

CBAR 

0.6163E-03 

0.0021 

264 

CBAR 

0.6755E-03 

0.0023 

265 

CBAR 

0.5725E-03 

0.0020 

266 

CBAR 

0.5725E-03 

0.0020 

267 

CBAR 

0.5583E-03 

0.0019 

268 

CBAR 

0.5191E-03 

0.0018 

269 

CBAR 

0.4706E-03 

0.0016 

270 

CBAR 

0.3950E-03 

0.0014 

271 

CBAR 

0.3950E-03 

0.0014 

272 

CBAR 

0.3260E-03 

0.0011 

273 

CBAR 

0.2754E-03 

0.0010 

274 

CBAR 

0.2158E-03 

0.0007 

275 

CBAR 

0.1482E-03 

0.0005 

276 

CBAR 

0.1482E-03 

0.0005 

277 

CBAR 

0.8558E-04 

0.0003 

278 

CBAR 

0.4871E-04 

0.0002 

279 

CBAR 

0.1596E-04 

0.0001 

280 

CBAR 

0.8652E-05 

0.0000 

301 

CBAR 

0.7572E-01 

0.2614 

302 

CBAR 

0.5778E-01 

0.1995 

303 

CBAR 

0.9422E-01 

0.3253 

304 

CBAR 

0.5765E-01 

0.1990 

305 

CBAR 

0.8604E-01 

0.2971 

306 

CBAR 

0.5167E-01 

0.1784 

307 

CBAR 

0.6932E-01 

0.2393 
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308 

CBAR 

0.4699E-01 

0.1622 

309 

CBAR 

0.5217E-01 

0.1801 

310 

CBAR 

0.3316E-01 

0.1145 

311 

CBAR 

0.3317E-01 

0.1145 

312 

CBAR 

0.2202E-01 

0.0760 

313 

CBAR 

0.1538E-01 

0.0531 

314 

CBAR 

0.7785E-02 

0.0239 

315 

CBAR 

0.3781E-02 

0.0131 

316 

CBAR 

0.8850E-03 

0.0031 

317 

CBAR 

0.7571E-01 

0.2614 

318 

CBAR 

0.5777E-01 

0.1995 

319 

CBAR 

0.9421E-01 

0.3253 

320 

CBAR 

0.5764E-01 

0.1990 

321 

CBAR 

0.8604E-01 

0.2971 

322 

CBAR 

0.5167E-01 

0.1784 

323 

CBAR 

0.6931E-01 

0.2393 

324 

CBAR 

0.4699E-01 

0.1622 

325 

CBAR 

0.5218E-01 

0.1801 

326 

CBAR 

0.3316E-01 

0.1145 

327 

CBAR 

0.3318E-01 

0.1145 

328 

CBAR 

0.2202E-01 

0.0760 

329 

CBAR 

0.1539E-01 

0.0531 

330 

CBAR 

0.7787E-02 

0.0269 

331 

CBAR 

0.3783E-02 

0.0131 

332 

CBAR 

0.8851E-03 

0.0031 

333 

CBAR 

0.7572E-01 

0.2614 

334 

CBAR 

0.5778E-01 

0.1995 

335 

CBAR 

0.9422E-01 

0.3253 

336 

CBAR 

0.5765E-01 

0.1990 

337 

CBAR 

0.8604E-01 

0.2971 

338 

CBAR 

0.5167E-01 

0.1784 

339 

CBAR 

0.6932E-01 

0.2393 

340 

CBAR 

0.4699E-01 

0.1622 

341 

CBAR 

0.5217E-01 

0.1801 

342 

CBAR 

0.3316E-01 

0.1145 

343 

CBAR 

0.3317E-01 

0.1145 

344 

CBAR 

0.2202E-01 

0.0760 

345 

CBAR 

0.1538E-01 

0.0531 

346 

CBAR 

0.7786E-02 

0.0269 

347 

CBAR 

0.3781E-02 

0.0131 

348 

CBAR 

0.8850E-03 

0.0031 

349 

CBAR 

0.7571E-01 

0.2614 

350 

CBAR 

0.5777E-01 

0.1995 

351 

CBAR 

0.9421E-01 

0.3253 

352 

CBAR 

0.5764E-01 

0.1990 

353 

CBAR 

0.8604E-01 

0.2971 

354 

CBAR 

0.5167E-01 

0.1784 

355 

CBAR 

0.6931E-01 

0.2393 

356 

CBAR 

0.4699E-01 

0.16.22 

357 

CBAR 

0.5218E-01 

0.180?. 

358 

CBAR 

0.3316E-01 

0.1145 

359 

CBAR 

0.3318E-01 

A  1  i  K 

U.JLi<iO 

360 

CBAR 

0.2203E'01 

0.0760 

378 


361 

CBAR 

0.1539E-01 

0.0531 

362 

CBAR 

0.7787E-02 

0.0269 

363 

CBAR 

0.3783E-02 

0.0131 

364 

CBAR 

0.8852E-03 

0.0031 

500 

CELAS 

0.3367E-03 

0.0012 

501 

CELAS 

0.2813E-05 

0.0000 

502 

CELAS 

0.3367E-03 

0.0012 

503 

CELAS 

0.2813E-05 

0.0000 

504 

CELAS 

0.3367E-03 

0.0012 

505 

CELAS 

0.2812E-05 

0.0000 

506 

CELAS 

0.3367E-03 

0.0012 

507 

CELAS 

0.2812E-05 

0.0000 

508 

CELAS 

0.1465E-16 

0.0000 

509 

CELAS 

0.4949E-10 

0.0000 

510 

CELAS 

0.1465E-16 

0.0000 

511 

CELAS 

0.4949E-10 

0.0000 

512 

CELAS 

4.794 

16.5529 

513 

CELAS 

0.7808E-10 

0.0000 

514 

CELAS 

4.794 

16.5529 

515 

CELAS 

0.7808E-10 

0.0000 

516 

CELAS 

0.9110E-02 

0.0315 

517 

CELAS 

0.6964E-02 

0.0309 

518 

CELAS 

0.9110E-02 

0.0315 

519 

CELAS 

0.8964E-02 

0.0309 

520 

CELAS 

0.9111E-02 

0.0315 

521 

CELAS 

0.8964 E-02 

0.0310 

522 

CELAS 

0.9111E-02 

0.0315 

523 

CELAS 

0.8964E-02 

0.0310 

STRAIN  ENERGY  IN  CELAS  ELEMENTS  =  9.662 
STRAIN  ENERGY  IN  CBAR  ELEMENTS  =  19.30 
TOTAL  STRAIN  ENERGY  =  28.96 
GENERALIZED  STIFFNESS/2  =  28.96 
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Definition  of  NASTRAN  Sets  By  Use  Of  Parametric  Geometry 
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SUMMARY 


Many  finite  element  preprocessors  describe  finite  element  model 
geometry  with  points,  lines,  surfaces  and  volumes.  One  method  for 
describing  these  basic  geometric  entities  is  by  use  of  parametric  cubics 
which  are  useful  for  representing  complex  shapes.  The  lines,  surfaces 
and  volumes  may  be  discretized  for  follow  on  finite  element  analysis. 
The  ability  to  limit  or  selectively  recover  results  from  the  finite  element 
model  is  extremely  important  to  the  analyst.  Equally  important  is  the 
ability  to  easily  apply  boundary  conditions.  Although  graphical 
preprocessors  have  made  these  tasks  easier,  model  complexity  may  not 
lend  itself  to  easily  identify  a  group  of  grid  points  desired  for  data 
recovery  or  application  of  constraints.  A  methodology  is  presented  which 
makes  use  of  the  assignment  of  grid  point  locations  in  parametric 
coordinates.  The  parametric  coordinates  provide  a  convenient  ordering  of 


the  grid  point  locations  and  a  method  for  retrieving  the  grid  point  ID’s 


from  the  parent  geometry.  The  selected  grid  points  may  then  be  used  for 


the  generation  of  the  appropriate  set  and  constraint  cards. 


LIST  OF  SYMBOLS 


x,y,z 

cartesian  coordinates 

Fi  -  F4 

parametric  blending  functions 

L 

symbol  for  a  line 

R 

a  vector  representing  a  point  in  space 

R,$ 

derivative  of  the  vector  R 

S 

symbol  for  a  surface 

Si  -  s4 

vectors  that  contain  algebraic  coefficients 

V 

symbol  for  a  volume 

$ 

parametric  variable 

(  )T 

transpose  of  a  vector 

INI  RODUCTION 

The  integration  cf  computer  aided  drafting  programs  and  finite  element 
preprocessors  has  led  to  a  common  pi«i  f'.ce  of  passing  basic  geometry  to 
the  finite  element  model  building  prog  ams.  The  basic  geometry  may 
consists  of  lines,  points,  arcs  and  splines  which  describe  the  geometry  of 
the  part  the  user  wants  to  analyze.  Production  finite  element  pre  and 
post  processors  make  it  extremely  easy  for  the  structural  analyst  to  make 
models  with  a  large  number  of  elements  and  grid  points.  Generally  the 
input  to  the  preprocessor  is  kept  to  a  minimum  and  the  program  will 
generate  automatically  the  grid  points  and  elements  required  to  discretize 
the  model.  The  user  may  need  to  identify  grid  points  to  apply  forces, 
moments,  displacements,  temperatures,  heat  transfer  coefficients  or  select 
a  series  of  grid  points  for  data  recovery.  Since  the  generation  is 
automatic,  the  user  has  or  little  no  control  of  the  grid  point  ID’s  and  will 
have  to  rely  on  the  graphics  capability  of  the  preprocessor  to  identify 
them.  The  process  of  selecting  the  grid  point  ID’S  for  set  or  constraint 
cards  can  become  very  time  consuming  and  subject  to  error  if  they  are 
manually  selected  by  the  user.  Most  of  the  advanced  model  building 
codes  have  graphics  driven  techniques  to  assist  in  the  selection  process. 
In  the  absence  of  a  robust  preprocessor  or  if  the  preprocessor  has  limited 
grid  selection  capability  an  alternate  method  may  be  employed  using  a 
neutral  file  of  the  model. 

Many  of  the  pre  and  post  processors  are  associated  with  a  specific  finite 
element  code.  The  disc  files  used  for  the  graphics  display  of  the  models 
can  be  very  large.  A  common  method  for  reducing  the  disc  space 
required  for  storing  a  finite  element  model  or  for  transferring  the  model 
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from  one  code  to  another  is  by  use  of  a  neutral  file.  [I]1  The  neutral  file  is 
not  specific  to  any  code  but  is  a  data  base  of  finite  element  model 
information.  The  data  base  should  contain  information  on  grid  points, 
element  connectivity,  materials,  constraints,  coordinate  systems,  etc  and 

model  geometry.  One  of  the  main  objectives  of  the  neutral  file  is  to 
provide  an  interface  between  the  pre  and  post  processor  and  external 

programs.  The  model  data  is  written  to  a  neutral  file  which  may  be  used 
to  extract  the  desired  grid  point  information.  The  neutral  file  is  generally 
readable  by  the  system  editor. 

The  selection  of  the  grid  points  is  based  on  the  relationship  between  the 
basic  or  parent  geometry  and  the  finite  element  data.  The  basic  geometry 
may  then  be  discretized  with  the  finite  element  grid  points  and  elements. 
For  example  a  line  may  have  many  grid  points  placed  along  its  length. 
The  finite  element  model  data  base  in  the  form  of  a  neutral  file  should 
retain  the  relationship  between  the  line  and  the  associated  grid  points.  In 
general  the  neutral  file  should  contain  the  relationship  between  all  the 

geometric  data  used  to  generate  the  model  and  the  associated  finite 
element  data.  If  the  basic  geometric  entities  are  written  in  terms  of 

parametric  geometry,  a  procedure  may  be  developed  to  easily  obtain  grid 
point  ID's  on  lines,  surfaces  and  volumes. 


PARAMETRIC  GEOMETRY 

Parametric  cubics  serve  as  the  mathematical  foundation  to  describe  the 
basic  geometric  entities  such  as  lines,  surfaces  and  volumes.  First 
consider  the  development  of  a  parametric  curve.  A  parametric  line  or 
curve  can  be  generated  from 

R=S^3  +  s252  +  S34  +  S4  (1) 

where  R  represents  a  point  in  space  (x,y  &  z)  and  i;  is  the  parametric 
variable  ranging  from  zero  to  one.  The  vectors  R  and  S  are  indicated  by 
bold  type.  The  four  vectors,  Si  through  S4  each  have  three  components 
and  may  be  defined  in  terms  of  the  end  conditions  of  the  line.  A 
parametric  curve  in  a  cartesian  coordinate  system  is  shown  in  Figure  1. 
Equation  (1)  can  be  written  using  the  end  point  information  as, 

R  =  (Fltt)  F2(y  F3(l)  F4(«)  (R(0)  R(l)  R,5(0)  R*(1))T  (2) 

*  Numbers  in  square  brackets  represent  references 
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where, 


F16)  =  2^3  -3^2+l 

F2(0  =  -21*  +  3^2 

F3(£)  =  43  ‘  2^2  +  ^  (3) 

F4($)  =  -  $2- 

Equation  (2)  is  referred  to  as  the  geometric  form  of  the  parametric  cubic 
curve.  [3]  The  geometric  form  of  a  line  or  curve  provides  a  technique  for 
determining  the  value  of  R(i;)  continuously  over  the  curve  with  only 
knowing  the  starting  and  ending  values  and  the  starting  and  ending 
derivatives. 

Surfaces  are  generated  from  4  parametric  curves  and  volumes  may  be 
defined  by  four  surfaces  spaced  along  a  parametric  coordinate.  The 
parametric  coordinate,  is  given  a  subscript  to  define  the  two  and  three 
dimensional  geometric  entities.  A  sketch  of  a  parametric  cubic  surface 
and  volume  with  the  parametric  coordinates  are  shown  in  Figure  2.  In 
Figure  2,  the  sides  of  the  surface  and  volume  are  shown  as  straight  but 
they  may  also  be  curved.  It  is  convenient  to  define  edges  on  the  surface 
and  surfaces  on  the  volume.  Figure  2  also  shows  the  edge  and  surface 
definitions.  Clearly,  edges  could  now  be  defined  from  the  surfaces  on  the 
volume. 

After  the  model  has  been  defined,  grids  are  assigned  to  the  basic  entities 
by  specifying  the  number  of  grid  points  desired  in  a  specific  parametric 
direction.  Consider  the  surface  shown  in  Figure  3  which  has  been 
discretized  with  four  grids  in  the  direction  and  three  grids  in  the  £2 

direction.  Recall  that  the  parametric  coordinates  range  in  value  from  zero 
to  one.  The  origin  for  the  surface  is  identified  by  the  arrows  indicating 
the  parametric  directions.  The  one  direction  is  uniformly  divided  into 
thirds  to  accommodate  the  requested  number  of  grid  points  and  the  two 
direction  is  divided  into  halves.  The  parametric  coordinates  of  the  grid 
point  indicated  by  the  arrow  in  Figure  3  are  (2/3,  1/2).  The  simple 
example  shown  in  Figure  3  illustrates  how  the  parametric  coordinates  are 
assigned  and  implies  how  a  procedure  could  be  developed  for  extracting 
grid  point  ID's  from  the  parametric  geometry.  The  grid  point  locations  are 
stored  in  terms  of  their  parametric  coordinates.  For  example,  in  Figure  2, 
all  grids  on  edge  3  would  have  parametric  coordinates  of  (1,  |2)  and  all 
grid  points  on  surface  6  of  the  volume  in  Figure  2  would  have  parametric 
coordinates  of  (4i,^2»  !)•  Search  routines  can  be  employed  to  located  grid 
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points  with  specific  parametric  coordinates  based  on  the  user  input  of 
which  edge  or  surface  information  is  needed.  Next  the  program  which 
makes  use  of  the  neutral  file  to  extract  grid  point  ID's  will  be  discussed. 

PROGRAM  DESCRIPTION 

A  computer  program  was  written  in  Fortran  77  which  makes  use  of  a 
neutral  file  for  extracting  the  grid  point  ID’s.  Assume  that  a  finite 

element  model  has  been  written  to  a  neutral  file  and  the  user  wishes  to 
extract  grid  point  ID's.  Referring  to  Figure  4,  the  program  will  first  ask  for 
the  name  of  the  neutral  file  and  also  prompt  the  user  for  the  name  of  a 
file  where  the  extracted  information  is  to  be  stored.  Once  the  requested 
information  has  been  entered,  the  program  will  respond  with  a  summary 
of  the  model.  Each  line  '  :rface  and  volume  is  assigned  an  ID  number  and 
upon  execution  of  the  program  these  ID  numbers  appear  in  the  output  to 
the  screen  and  are  also  written  to  the  designated  file.  Thus,  the  user  is 
informed  about  the  content  of  the  model  as  to  the  total  number  of  grid 
points  and  the  individual  totals  for  the  number  of  lines,  surfaces  and 

volumes.  The  user  is  asked  if  more  information  is  wanted  on  lines, 
surfaces  or  volumes.  If  "none"  is  selected,  the  program  will  stop 
depending  on  wether  a  new  model  is  to  be  investigated.  The  point  "A" 
was  designed  into  the  program  which  will  be  convenient  as  a  return 
location  to  request  more  information.  If  more  information  on  lines, 
surfaces  or  volumes  was  requested,  the  program  moves  to  location  "B"  on 
Figure  5. 

The  program  flow  chart  shown  in  Figure  5  describes  the  procedure 
programed  to  extract  grid  point  ID’s  from  an  individual  line,  surface  or 
volume.  Grid  point  ID’s  may  also  be  obtained  for  the  entire  model.  If  a 

surface  is  selected,  the  user  may  also  specify  any  edge  on  the  surface.  If  a 

volume  is  selected,  the  user  may  also  specify  a  surface  on  the  volume. 
The  program  returns  the  user  to  point  "A"  on  Figure  4  to  request  more 
information.  The  grid  point  ID’s  that  were  requested  are  written  to  an 
output  file. 


EXAMPLE  PROBLEM 

Consider  a  rather  simple  model  consisting  of  Line  31,  Surface  12,  and 
Volume  17  as  shown  in  Figure  6.  The  model  does  not  represent  a  real 
object  but  was  designed  to  illustrate  the  utility  of  the  grid  point 
extraction  program.  The  ID  numbers  for  the  geometric  entities  would  be 
assigned  by  the  preprocessor.  Grid  points  have  been  assigned  to  each  of 
the  geometric  entities  and  are  also  shown  in  Figure  6.  The  parametric 
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coordinates  are  displayed  to  identify  the  edges  and  faces.  Upon  executing 
the  program  the  analyst  would  enter  the  neutral  file  name  containing  the 
model  and  any  name  for  an  output  file.  The  program  will  respond  with 
the  following  summary: 

Total  No.  of  Grids:  2  3 

No.  of  Lines:  1 

No.  of  Surfaces  1 

No.  of  Volumes  1 

Suppose  the  objective  is  to  recover  grid  point  ID's  on  face  4  of  Volume  17, 
(ie,  grid  points  18,  19,  22,  and  23).  These  grid  points  can  be  identified  by 
simply  knowing  which  volume  ID  and  which  face.  The  face  ID  requires 
knowing  the  orientation  of  the  parametric  coordinate  system  of  that 
particular  volume.  The  preprocessor  must  provide  this  information 
graphically.  Once  the  model  summary  has  been  written  to  the  screen  and 
output  file,  the  program  will  prompt  the  user  for  more  information  on  a 
L,S  or  V.  The  user  will  input  "V"  and  the  program  will  respond  with: 

Volumes  1 

With  the  following  ID's: 

17 

The  next  prompt  asks  for  the  ID  number  of  the  volume,  in  Tiis  case  17. 

Volume  17  No.  of  Grids  8 

16  17  18  19  20  21  22  23 

The  volume  face  ID  is  requested  and  the  number  4  is  input.  Face  4  is 
located  at  the  arrowhead  end  of  the  ^2  direction.  The  program  responds 
with: 


Face  4 
Volume  17 
18  19  22  23 

The  face  request  may  be  repeated.  If  no  other  faces  are  to  be 
investigated,  the  program  returns  to  the  location  "A"  in  Figure  4  which 
asks  the  user  if  any  additional  lines,  surfaces  or  volumes  are  to  be 
investigated. 
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CONCLUDING  REMARKS 


Most  finite  element  preprocessors  can  identify  a  group  of  grid  points,  but 
there  is  no  convenient  method  for  writing  this  information  to  a  NASTRAN 
set  card.  A  program  has  been  written  to  interrogate  a  neutral  file 
representing  a  finite  element  model  which  over  comes  this  deficiency. 
The  program  will  extract  grid  point  ID's  which  are  associated  with  the 
parent  geometry  of  the  model.  The  program  is  external  to  the  pre  and 
post  processor  which  provides  additional  capability  for  the  analyst.  The 
procedure  makes  use  of  the  parametric  description  of  lines,  surfaces  and 
volumes.  The  program  is  very  useful  for  adding  additional  constraint  or 
set  cards  to  an  existing  model. 

A  logical  extension  to  the  work  presented  is  to  add  the  capability  to  define 
lists  of  grid  point  ID's  that  are  not  wholly  contained  in  a  geometric  entity. 
It  is  often  desirable  to  write  constraint  and  data  recovery  sets  that 
contain  the  grid  point  ID's  from  portions  of  several  entities.  These  lists 
may  then  be  used  to  write  new  constraint  and  data  recovery  sets  without 
modifying  the  basic  model  geometry.  Boolean  operators  may  be  used  to 
generate  the  new  sets. 
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Figure  4  Program  Flow  Chart  for  General  Model  Information 
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Figure  5  Program  Flow  Chart  for  Grid  Point  ID  Extraction 
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